• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Drag any object, or any form with a simple code. No API or anything! Works with all versions of VB

Drag any object, or any form with a simple code. No API or anything! Works with all versions of VB

Drag any object, or any form with a simple code. No API or anything! Works with all versions of VB

Rate Drag any object, or any form with a simple code. No API or anything! Works with all versions of VB

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

MousePress = 1
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If MousePress = 1 Then
    Picture1.Top = Picture1.Top + Y
    Picture1.Left = Picture1.Left + X
End If
End Sub

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