Create very simple visual effect
Create very simple visual effect
Rate Create very simple visual effect
(2(2 Vote))
While 1
For i = 0 To 10 Step 0.001
DoEvents
Circle (Me.Width / 2 + Sin(i) * 2000, Me.Height / 2 + Cos(i) * 2000), 3000, i * j * 1000 + 30
Next
j = j + 100
Wend
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
Create very simple visual effect Comments
No comments yet — be the first to post one!
Post a Comment