Moving forms around a scree

[Matthew Gates]

You don't need API for this, use this code.

Dim prevX As Single, prevY As Single
 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    prevX = X
    prevY = Y
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then Move Left - (prevX - X), Top - (prevY - Y)
End Sub