Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
 
KoordinateX = X
KoordinateY = Y
Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
If Label1.Left < KoordinateY Then
Label1.Left = Label1.Left + 5
End If
If Label1.Left > KoordinateY Then
Label1.Left = Label1.Left - 5
End If
 
 
If Label1.Top < KoordinateX Then
Label1.Top = Label1.Top + 5
End If
If Label1.Top > KoordinateX Then
Label1.Top = Label1.Top - 5
End If
 
End Sub

MfG Lord_Duke
a.k.a. Loki

Design is 4 your Life and not for the others

________________________________________________________________
Windows XP Prof. SP 2 @ 2X 3,45 GHz P4 D ( 830) // DDR2 1024 MB //
GeForce 6600 GT Silent Pipe // 500 GB HDD