Анимация

Dim I As Integer
Dim Dx As Integer
Dim Dy As Integer
 
Private Sub Command1_Click()
'по нажатию кнопки "окружность"
Dim x As Integer
Dim y As Integer
Dim z As Integer
Cls
Timer1.Enabled = False
For K = 3 To 18
For x = 0 To 1000 Step 250
For y = 0 To 1000 Step 250
For z = 0 To 1000 Step 250
Circle (5 + Dx * K, 5 + Dy * K), K, RGB(x, y, z)
Next z
Next y
Next x
Next K
End Sub
 
Private Sub Command2_Click()
'по нажатию кнопки "квадрат"
Timer1.Enabled = True
End Sub
 
Private Sub Command3_Click()
'по нажатию кнопки "часы"
Timer1.Enabled = False
Cls
For J = 1 To 90 Step 0.1
Image1.Move J, 100 - J
Next
End Sub
 
Private Sub Form_Load()
Dx = 5
Dy = 5
Scale (0, 100)-(100, 0)
End Sub
 
Private Sub Timer1_Timer()
Cls
Line (5 + Dx * I, Dy * I)-(Dx * I, 5 + Dy * I), , B
I = I + 1
End Sub

Private Sub Command1_Click()
'по нажатию кнопки "окружность"
Dim X As Integer
Dim Y As Integer
Dim Z As Integer
 
Cls
Timer1.Enabled = False
For K = 1 To 18
For X = 0 To 1000 Step 250
For Y = 0 To 1000 Step 250
For Z = 0 To 1000 Step 250
DrawWidth = K
Circle (5 + Dx * K, 5 + Dy * K), K, RGB(12 * K, 12 * K, 255 - 10 * K)
Next Z
Next Y
Next X
Next K
End Sub

For Z = 0 To 1000 Step 250

Private Sub Timer1_Timer()
Cls
DrawWidth = Int(14 * Rnd + 1)
ForeColor = QBColor(Int(14 * Rnd + 1))
Line (5 + Dx * I, Dy * I)-(Dx * I, 5 + Dy * I), , B
I = I + 1
End Sub

 RGB(12 * K, 12 * K, 255 - 10 * K)