Author  

Language  

Operating Systems  

' Move a non-caption form using no API, no DLL
' By U.Sciarretta
' umb.1@reteitalia.net

' paste the following code in a module
' and call it from the mousemove routine of the form
' that you like to move as: mousemove [form.name],x,y,button
' drag the form to move it
' use same calling code if you need to move the form dragging over
' a control in the form (pay attention to click_routine potential
' conflict)

Sub moveform(ff As Form, xx, yy, bt)
    Static oldx, oldy, mf
    Dim moveleft, movetop

    moveleft = ff.Left + xx - oldx
    movetop = ff.Top + yy - oldy
    If bt = vbLeftButton Then
        If mf = 0 Then
            ff.Move moveleft, movetop
            ff.Refresh
            mf = 1
        Else
            mf = 0
        End If
    End If
    oldx = xx
    oldy = yy
End Sub

'Usage:
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    moveform Me, X, Y, Button
End Sub