by Pedro (4 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: Visual Basic 3.0
Difficulty: Unknown Difficulty
Originally Published: Wed 14th June 2000
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Drag any object, or any form with a simple code. No API or anything! Works with all versions of VB
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
No comments have been posted about Drag any object, or any form with a simple code. No API or anything! Works with all versions of VB. Why not be the first to post a comment about Drag any object, or any form with a simple code. No API or anything! Works with all versions of VB.