Private Sub Command1_Click( )
Dim s As Single
Dim i As Single
s = _
For i = 1 To 100 Step
Next
Print
End Sub