Hejsan!

Skulle behöva lite hjälp med funktionen DragDrop.
Problemet ligger i att jag vet inte hur man använder den. Så om någon vänlig själ kan förklara det så blir jag ytterst glad =).

Det jag ska göra är att flytta innehållet från label1 till label2.
Alltså Label1.Caption till Label2.Caption.

Kan ju inte vara allt för svårt!

Kanske dax att gå och lägga sig!? // R-mus

oj. läste fel. trodde det var 2 textboxar. men jaja. funkar likadant med labels

Private Sub txtDragFrom_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
txtDragFrom.Drag vbEndDrag
End Sub

Private Sub txtDragTo_DragDrop(Source As Control, X As Single, Y As Single)
If TypeOf Source Is TextBox And Source.Name = "txtDragFrom" Then
txtDragTo.Text = Source.Text
txtDragFrom.Drag vbEndDrag
End If
End Sub

Private Sub txtDragFrom_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
txtDragFrom.Drag vbBeginDrag
End Sub

Private Sub txtDragTo_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
If TypeOf Source Is TextBox And Source.Name = "txtDragFrom" Then txtDragTo.MousePointer = 3
End Sub

Man tackar man tackar

jo det fixade sig, bara att titta på hur du hade gjort och byta ut alla namn =)

Tack igen // R-mus