For i = 1 To 5
  For j = 1 To i
    TextWindow.Write("*")
  EndFor
  TextWindow.WriteLine("")
EndFor