• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Move a form without using API!

Move a form without using API!

Move a form without using API!

API Declarations


Dim mousebeforex As Integer
Dim mouseaftery As Integer



Rate Move a form without using API!

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim mousebeforex As Integer
Dim mouseaftery As Integer

Private Sub form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
MousePress = 1
mousebeforex = X
mouseaftery = Y
End Sub
Private Sub form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If MousePress = 1 Then
    frmMain.Top = frmMain.Top + Y - mouseaftery
    frmMain.Left = frmMain.Left + X - mousebeforex
End If
End Sub

Private Sub form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
MousePress = 0
End Sub