![]() |
#2
vbvcr512014-06-10 21:39
|
Private Sub Form_Click()
Dim iheight As Integer
Dim i As Integer
iheight = Form1.Height / 2 - 50
For i = 0 To Form1.Width
CurrentX = i
CurrentY = iheight - iheight * Sin(i * 3.14 / 180 * 0.1)
Print "*"
Next i
End Sub