如何寫一個同時動作的副程式!!(編號:8980)

這是個模擬電梯動作的程式碼!!
這只是一部電梯而已
可是我要寫一個很多部的電梯同時在動作的程式
想了好幾了一直想不出個頭緒來..
倒底要怎樣寫一個副程式來完成多部電梯同時動作
麻煩各位前輩指導一下
謝謝!!
Dim counter As Integer
Dim sw As Integer
Dim sw_1 As Integer
Dim ii As Integer
Dim Clicker As Integer
Dim INDEX_1 As Integer
Dim INDEX_2 As Integer
Dim MOVE_ONE_TWO As Integer
Dim SW_ONE As Integer
Private Sub A1_Click(Index As Integer)
INDEX_CLS
INDEX_1 = 1
Timer2.Enabled = True
End Sub
Private Sub A2_Click(Index As Integer)
INDEX_CLS
INDEX_1 = 2
Timer2.Enabled = True
End Sub
Private Sub A3_Click(Index As Integer)
INDEX_CLS
INDEX_1 = 3
Timer2.Enabled = True
End Sub
Private Sub A4_Click(Index As Integer)
INDEX_CLS
INDEX_1 = 4
Timer2.Enabled = True
End Sub
Private Sub A5_Click(Index As Integer)
INDEX_CLS
INDEX_1 = 5
Timer2.Enabled = True
End Sub
Private Sub Command1_Click(Index As Integer)
Clicker = Index
End Sub
Private Sub Command2_Click(Index As Integer)
Clicker = Index
End Sub
Private Sub Form_Load()
Clicker = 0
ii = 0
sw = 0
counter = 0
INDEX_1 = 0
Label2.Caption = "電梯正在移動中......"

For i = 1 To 5
Shape1(i).FillColor = Me.BackColor
  'Shape2(i).FillColor = Me.BackColor
Next i
End Sub
Private Sub Timer1_Timer()
If Clicker = 0 Then
MOVE_1
Else
If Clicker = counter Then Timer1.Enabled = False: index_cls_tow
  If Clicker > counter Then
   counter = counter + 1
   
   showcolor
  End If
  If Clicker < counter Then
   counter = counter - 1
   
   showcolor
  End If
End If

End Sub

Public Sub showcolor() '顯示出目前電梯停留在那個樓層
For i = 1 To 5
Shape1(i).FillColor = Me.BackColor
Next i
Shape1(counter).FillColor = RGB(255, 0, 0)
Label1(0).Caption = counter
End Sub
Public Sub INDEX_CLS()
     A1(Clicker).Visible = False
     A2(Clicker).Visible = False
     A3(Clicker).Visible = False
     A4(Clicker).Visible = False
     A5(Clicker).Visible = False
   
End Sub
Public Sub INDEX_MOVE()
'Do
'counter
'Loop Until (INDEX_1 = counter)
End Sub
Public Sub MOVE_1() '電梯移動

If counter >= 5 Then sw = 1

If sw = 1 Then
   counter = counter - 1
   If counter <= 1 Then sw = 0
   showcolor
  Else
   counter = counter + 1
   showcolor
  End If
  Label1(0).Caption = counter

End Sub
Public Sub index_cls_tow()
A1(Clicker).Visible = True
     A2(Clicker).Visible = True
     A3(Clicker).Visible = True
     A4(Clicker).Visible = True
     A5(Clicker).Visible = True
End Sub
Private Sub Timer2_Timer()
If sw_1 = 1 Then
ii = ii + 1
  If ii = 3 Then
   sw_1 = 0
   ii = 0
   Clicker = 0
   Label2.Caption = "電梯正在移動中......"
   Timer1.Enabled = True
   Timer2.Enabled = False
  End If
Else
If counter > INDEX_1 Then
   counter = counter - 1
   showcolor
   Label2.Caption = "電梯正在前往第 " & INDEX_1 & " 樓層中......"
  End If
  If counter < INDEX_1 Then
   counter = counter + 1
   showcolor
   Label2.Caption = "電梯正在前往第 " & INDEX_1 & " 樓層中......"
  End If

If counter = INDEX_1 Then
   Label2.Caption = "電梯已經到達所在樓層!!"
   sw_1 = 1
  End If
End If
End Sub