• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Move form in main area, not only in the title bar, but the entire thing.

Move form in main area, not only in the title bar, but the entire thing.

Move form in main area, not only in the title bar, but the entire thing.

API Declarations


Dim mousey As String



Rate Move form in main area, not only in the title bar, but the entire thing.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    If Button = vbLeftButton Then
        Me.Left = Me.Left - (mousex - X)
        Me.Top = Me.Top - (mousey - Y)
    End If
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    mousex = X
    mousey = Y
End Sub