• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Create very simple visual effect

Create very simple visual effect

Create very simple visual effect

Rate Create very simple visual effect

• 1
• 2
• 3
• 4
• 5

(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