for next

If you create a Console project use this code...

[VB]
Module Module1

Sub Main()
CreateX()
End Sub

Private Sub CreateX()
Dim S As String
For i As Integer = 1 To 6
S &= "X"
Console.WriteLine(S)
Next

Console.ReadLine()
End Sub

End Module

[/VB]


:D
 
Back
Top