Hanya Sebuah Code Anda Bisa Memindahkan Kontrol Dengan Drag-Drop Saat Aplikasi RunTime..
Ikuti Langkah-langkahNya
-:>buatlah sebuah Form dengan sebuah Button / tombol didalamnya
Di bagian 'Command1_MouseMove' ketikkan :
Static l As Integer, t As Integer
If Button = 1 Then
Command1.Left = (Command1.Left + X) - l
Command1.Top = (Command1.Top + Y) - t
Else
l = X
t = Y
End If
