by Khaldoun Baz (12 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Mon 29th September 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Create very simple visual effect
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