Option Explicit
'Mover form sem barra de título
Dim lMouseX As Long, lMouseY As Long
Dim fMoveForm As Form
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
lMouseX = X
lMouseY = Y
End If
End Sub
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If (Button = 1) And (fMoveForm.WindowState <> 2) Then
Screen.ActiveForm.Left = Screen.ActiveForm.Left + X - lMouseX
Screen.ActiveForm.Top = Screen.ActiveForm.Top + Y - lMouseY
End If
End Sub
Private Sub Form_Activate()
Set fMoveForm = Me
End Sub