[FONT=Courier New][SIZE=2]Dim Fx As Integer
Dim Fy As Integer
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Fx = X
Fy = Y
Command1.Drag 1
End Sub
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Command1.Left = X - Fx
Command1.Top = Y - Fy
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Caption = X & " " & Y
Command1.Left = X
Command1.Top = Y
End Sub
[/SIZE][/FONT]


[FONT=Courier New][SIZE=2]1 Adet command butonu ekleyin[/SIZE][/FONT].