' Controls: 2 * Label, 1 * Timer
Private Pos1%, X1!, Y1!, X2!, Y2!, S1!
 
Private Sub Form_Load()
  Me.ScaleMode = vbPixels
  X1 = Label1.Left
  Y1 = Label1.Top
  X2 = Label2.Left
  Y2 = Label2.Top
  S1 = Sqr((X2 - X1) ^ 2 + (Y2 - Y1) ^ 2)
  Label1.ZOrder vbBringToFront
  Timer1.Interval = 12
  Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
  Label1.Move X1 + (X2 - X1) / S1 * Pos1, Y1 + (Y2 - Y1) / S1 * Pos1
  Pos1 = Pos1 + 1
  If Pos1 >= S1 Then Timer1.Enabled = False
End Sub

Gruss,

Zardoz