Move a form

jeg ved ikke om det funker under win2000.

Private Declare Sub ReleaseCapture Lib \"user32\" ()
Private Declare Function SendMessage Lib \"user32\" Alias \"SendMessageA\" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long

Private Function FlytObject(ObjecthWnd As Long)
    ReleaseCapture
    Call SendMessage(ObjecthWnd, &HA1, 2, 0&)
End Function

Private Sub Form1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
    FlytObject Me.hWnd
    End If
End Sub

det skulle være Form_MouseDown og ikke Form1_MouseDown