Option Explicit
Dim stepY As Integer, stepX As Integer
Dim y As Integer, x As Integer, sh As Control

Private Sub Form_Load()
  stepY = -60
  stepX = 40
    y = Shape1.Top
    x = Shape1.Left
End Sub

Private Sub Timer1_Timer()
y = y + stepY
x = x + stepX

Shape1.Top = y
Shape1.Left = x

If y <= 0 Then stepY = 60
If y >= Form1.Height - Shape1.Width Then stepY = -60
If x > Width - Shape1.Width Then stepX = -40: Set sh = Me.Controls.Add("VB.Shape", "sh1"): sh.Visible = True: sh.Shape = 3
If x < 0 Then stepX = 40
End Sub

Option Explicit
Dim stepY As Integer, stepX As Integer
Dim y As Integer, x As Integer, sh As Control

Private Sub Form_Load()
  stepY = -60
  stepX = 40
    y = Shape1.Top
    x = Shape1.Left
End Sub

Private Sub Timer1_Timer()
y = y + stepY
x = x + stepX

Shape1.Top = y
Shape1.Left = x

If y <= 0 Then stepY = 60
If y >= Form1.Height - Shape1.Width Then stepY = -60
If x > Width - Shape1.Width Then eddcontrol
If x < 0 Then stepX = 40
End Sub

Private Sub eddcontrol()
 Set sh = Me.Controls.Add("VB.Shape", "sh" & colShapes.Count)
  sh.Visible = 1
  sh.Shape = 3
  colShapes.Add sh
End Sub

Sh.Top = y
Sh.Left = x

stepY = -60
  stepX = 40

Sh.Top = y
Sh.Left = x

y = y + stepY
x = x + stepX

Shape1.Top = y
Shape1.Left = x

Dim stepY As Integer, stepX As Integer
Dim y As Integer, x As Integer, sh As Control
Dim colShapes As New Collection

Private Sub Form_Load()
Show
  stepY = -200
  stepX = 150
  eddcontrol
  Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
 One_step
   If y <= 0 Then stepY = 200
   If y >= Form1.Height - sh.Width Then stepY = -200
   If x > Width - sh.Width Then eddcontrol
   If x < 0 Then stepX = 150
End Sub

Private Sub One_step()
  y = y + stepY
  x = x + stepX
    sh.Left = x
    sh.Top = y
End Sub

Private Sub eddcontrol()
  Set sh = Me.Controls.Add("VB.Shape", "sh" & colShapes.Count)
  sh.Visible = 1
  sh.Shape = 3
  colShapes.Add sh
End Sub

Private Sub Timer1_Timer()
 For i = 1 To 100
 sh.Name = i
 One_step sh
 Next
End Sub

Private Sub One_step(sh As Integer)
    sh.Left = sh.Left + 40
    sh.Top = sh.Top + 60
End Sub

a = MySum(a, 4)

Private Sub Timer1_Timer()
 For Each sh In Me.Controls
 One_step
 Next sh
End Sub

Dim sh As Control
Dim colShapes As New Collection
Dim k As Integer

Private Sub Form_Load()
Show
  eddcontrol
  Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
 For Each sh In colShapes
 One_step
 Next sh
End Sub

Private Sub One_step()
    sh.Left = sh.Left + 200
    sh.Top = sh.Top + 300
    k = k + 1
    If k = 3 Then eddcontrol
End Sub

Private Sub eddcontrol()
  k = 0
  Set sh = Me.Controls.Add("VB.Shape", "sh" & colShapes.Count)
  sh.Visible = 1
  sh.Shape = 3
  colShapes.Add sh
End Sub

Dim colShapes As New Collection
Dim k As Integer

Private Sub Form_Load()
Show
  eddcontrol
  Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Dim figure As Shape
 For Each figure In colShapes
 One_step figure
 Next figure
End Sub

Private Sub One_step(ByRef mama As Shape)
With mama
    .Left = .Left + 200
    .Top = .Top + 300
    k = k + 1
    If k = 3 Then eddcontrol
    End With
End Sub

Private Sub eddcontrol()
Dim check As Shape
  k = 0
  Set check = Me.Controls.Add("VB.Shape", "sh" & colShapes.Count)
  check.Visible = 1
  check.Shape = 3
  colShapes.Add check
End Sub

Private Sub Timer1_Timer()
Dim figure As Shape
 k = k + 1
    For Each figure In colShapes
 One_step figure
 Next figure
   If k = 20 Then eddcontrol
End Sub

Set Cont.Sh = check

Cont.Sh = check

Private Type ShaperType
   Sh As Shape,
   StepX As Integer,
   StepY As Integer
End Type

Private Sub Timer1_Timer()
Dim figure As ShaperType
 k = k + 1
    For Each figure In colShapes
 One_step figure
 Next figure
   If k = 20 Then
     eddcontrol
     k = 0
   End If
End Sub

Private Sub One_step(ByRef mama As ShaperType)
With mama
    .Left = .Left + 30
    .Top = .Top + 40
End With
End Sub