Private Sub Command1_Click()
Dim I As Byte
For I = 1 To 10
Print "Hello Visual BAsic"
Next
End Sub