Drag & Drop prosím pomozte – Visual Basic – Fórum – Programujte.com

Ahoj. pokouším se udělat funkci Drag & Drop ve Visual Basic 6. Ale moc se mi to nedaří. Mám zatím tohle co jsem sehnal na netu:

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

   Command1.Drag vbBeginDrag 'zaciatok posuvania

End Sub



Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

   Command1.Drag vbEndDrag 'koniec posuvania

End Sub



Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)

   Source.Move X, Y ' place the button

End Sub

To Max : Dvakrát klikni na to nové tlačidlo - dostaneš event: onclick a medzi Private sub a End SUB vsuň: Form2.Onload();

nwm napsal:
To Max : Dvakrát klikni na to nové tlačidlo - dostaneš event: onclick a medzi Private sub a End SUB vsuň: Form2.Onload();

pokud te chapu, tak chces presunou btn na jiný a pokud se bude uz. snazit o neco jiného tak mu to zakázat?