Memindahkan Kontrol Saat Runtime

Hanya dengan beberapa kode, Anda dapat memindahkan kontrol dengan drag-drop saat aplikasi runtime (berjalan). Untuk percobaan, buatlah sebuah Form dengan sebuah Button / tombol didalamnya.

[ VB 6.0 ]
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

[ VB .NET ]
Di bagian 'Button1_MouseMove' ketikkan :

Static p As Point
If e.Button = Windows.Forms.MouseButtons.Left Then
  Button1.Left = (Button1.Left + e.X) - p.X
  Button1.Top = (Button1.Top + e.Y) - p.Y
Else
  p = e.Location
End If