حرکت هم زمان دو شی در form

سلام
چطور میشه دو یا چند شی برای مثال : label
بتونن هم زمان روی فرم جابجا بشن
با تشکر

دقیقا نمیدونم چطور تغییر بدم که هم زمان بشه
این سورسم هست:

کد:

---

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
 
Private Sub Command1_Click()
 
If Label1.Left < Label2.Left Then
 
While Not Label1.Left = Label2.Left
  Label1.Left = Label1.Left + 4
  DoEvents
  Sleep 1
Wend
 
End If
 
If Label1.Left > Label2.Left Then
 
While Not Label1.Left = Label2.Left
  Label1.Left = Label1.Left - 4
  DoEvents
  Sleep 1
Wend
 
End If
 
If Label1.Top < Label2.Top Then
 
While Not Label1.Top = Label2.Top
  Label1.Top = Label1.Top + 4
 DoEvents
  Sleep 1
Wend
End If
 
 
 
 
 
If Label1.Top > Label2.Top Then
 
While Not Label1.Top = Label2.Top
  Label1.Top = Label1.Top - 4
 DoEvents
  Sleep 1
Wend
End If
 
'////////////////////////////
'/////////////////////////////////////////////
'///////////////////////////////////////////////////////////
If Label3.Left < Label2.Left Then
 
While Not Label3.Left = Label2.Left
  Label3.Left = Label3.Left + 4
  DoEvents
  Sleep 1
Wend
 
End If
 
If Label3.Left > Label2.Left Then
 
While Not Label3.Left = Label2.Left
  Label3.Left = Label3.Left - 4
  DoEvents
  Sleep 1
Wend
 
End If
 
If Label3.Top < Label2.Top Then
 
While Not Label3.Top = Label2.Top
  Label3.Top = Label3.Top + 4
 DoEvents
  Sleep 1
Wend
End If
 
 
 
 

 
If Label3.Top > Label2.Top Then
 
While Not Label3.Top = Label2.Top
  Label3.Top = Label3.Top - 4
 DoEvents
  Sleep 1
Wend
End If
 
End Sub

---