http://www.vbforums.com/showthread.php?597638-RESOLVED-VB6-Mouse-Move-event
Option Explicit Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Command1.Drag vbBeginDrag End Sub Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single) Command1.Move X, Y Command1.Drag vbEndDrag End Sub
Δεν υπάρχουν σχόλια:
Δημοσίευση σχολίου