Нарисовать гирлянду из шариков

Private Sub Form_Load()
Timer1.Interval = 1200
Timer2.Interval = 1250
Timer3.Interval = 1300
End Sub
 
Private Sub Timer1_Timer()
Shape1.FillColor = vbRed
Shape2.FillColor = vbYellow
Shape3.FillColor = vbYellow
End Sub
 
Private Sub Timer2_Timer()
Shape1.FillColor = vbYellow
Shape2.FillColor = vbRed
Shape3.FillColor = vbYellow
End Sub
 
Private Sub Timer3_Timer()
Shape1.FillColor = vbYellow
Shape2.FillColor = vbYellow
Shape3.FillColor = vbRed
End Sub

Dim sdvig As Integer, rasmer As Integer, vysota As Integer, kol As Integer, sh()
Private Sub Form_load()
Form1.ScaleMode = 3: AutoRedraw = True: DrawWidth = 3
Timer1.Interval = 500: sdvig = 70: rasmer = 50: vysota = 100: kol = 10
ReDim sh(0 To kol)
      For i = 0 To kol
           Set sh(i) = Controls.Add("VB.Shape", "sh" & "i" & i, Form1)
           sh(i).Top = vysota: sh(i).Left = i * sdvig + rasmer
           sh(i).Width = rasmer: sh(i).Height = rasmer
           sh(i).BackStyle = 1: sh(i).BorderStyle = 0
           sh(i).BackColor = QBColor(i)
           sh(i).Shape = 3
           sh(i).Visible = True
      Next i
      For i = 0 To kol - 1
           Circle (i * sdvig + rasmer / 2 + sdvig / 2 + rasmer, vysota), sdvig / 2, , 0, 3.2, 0.5
      Next i
End Sub
Private Sub Timer1_Timer()
      For i = 0 To kol
           sh(i).BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
      Next i
End Sub

Dim sdvig As Integer, rasmer As Integer, vysota As Integer, kol As Integer, sh()
 
Private Sub Form_load()
Form1.ScaleMode = 3: AutoRedraw = True: DrawWidth = 3
sdvig = 70: rasmer = 50: vysota = 100: kol = 11
Me.Width = (sdvig / 2 + rasmer) * (kol) * VB.Screen.TwipsPerPixelX
ReDim sh(0 To kol)
      For i = 0 To kol
           Set sh(i) = Controls.Add("VB.Shape", "sh" & "i" & i, Form1)
           sh(i).Top = vysota: sh(i).Left = i * sdvig + rasmer
           sh(i).Width = rasmer: sh(i).Height = rasmer
           sh(i).BackStyle = 1: sh(i).BorderStyle = 0
           sh(i).BackColor = 0
           sh(i).Shape = 3
           sh(i).Visible = True
      Next i
      For i = 0 To kol - 1
           Circle (i * sdvig + rasmer / 2 + sdvig / 2 + rasmer, vysota), sdvig / 2, , 0, 3.2, 0.5
      Next i
      
End Sub
Private Sub Form_Click()
      For i = 0 To kol
           If i <= kol \ 2 Then
                sh(i).BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
           Else
                sh(i).BackColor = 0
           End If
      Next i
End Sub
Private Sub Form_DblClick()
      For i = 0 To kol
           If i > kol \ 2 Then
              sh(i).BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
           Else
              sh(i).BackColor = 0
           End If
      Next i
End Sub

Private Sub Form_Load()
    AutoRedraw = True: FillStyle = 0: DrawWidth = 2
    Scale (-10, 10)-(10, -10)
End Sub
 
Sub Draw(L As Integer, R As Integer)
Dim i As Integer, j As Integer
    Line (-10, 0)-(10, 0)
    For i = -9 To 9 Step 2
        j = j + 1
        If j >= L And j <= R Then FillColor = vbRed Else FillColor = 0
        Circle (i, 0), 0.8, vbBlue
    Next i
End Sub
 
Private Sub Form_Click()
    Draw 1, 5
End Sub
 
Private Sub Form_DblClick()
    Draw 6, 10
End Sub