Private Sub Form_Load()
 
  Me.ScaleMode = vbPixels
 
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
 
  Dim DX!, DY!
 
  With Command1
    DX = .Left + .Width / 2 - X
    DY = .Top + .Height / 2 - Y
    If DX * DX + DY * DY < 10000 Then .Move .Left + 2 * Sgn(DX), .Top + 2 * Sgn( _
      DY)
  End With
 
End Sub

Gruss,

Zardoz