原始碼:http://down.gogobox.com.tw/t2329175/oq2m2
用了一些簡單的小技巧,發現不能用公式做。


原始碼:

Dim x As Double, flag As Boolean

Private Sub Form_Activate()
DoEvents
Scale (-50, 50)-(50, -50)
For i = 0 To 1E+18 Step 0.05
Moon.Left = 35 * Cos(i) - 5
Moon.Top = 35 * Sin(i) + 3
Delay 0.05
Next
End Sub

Public Sub Delay(x As Single)
no = Timer
DoEvents
Do While no + x > Timer
DoEvents
Loop
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
End
End Sub

創作者介紹
創作者 讓地獄深紅的天亮 的頭像
讓地獄深紅的天亮

!壞人必需做好事!

讓地獄深紅的天亮 發表在 痞客邦 留言(0) 人氣()