• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Move a form without using the title-bar.

Move a form without using the title-bar.

Move a form without using the title-bar.

Rate Move a form without using the title-bar.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    MouseX = X
    MouseY = Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DoEvents
    If Button = vbLeftButton Then
        Left = Left - (MouseX - X)
        Top = Top - (MouseY - Y)
    End If
End Sub