How to use Text Drag N Drop

[Mikelo2k]

Hi, i am not the best in VB, could someone please help me with this problem:
I want to drag and drop selected text from a textbox or listbox, into a combo box. Please Help :-)

Mikelo

[Mikelo2k]

PLZ HELP!

[Jop]

Hey take it easy man!!!!
It were just

Dim d1 As Date, d2 As Date

Private Sub Form_Load()
d1 = "10-07-2000 01:36 PM"
d2 = "10-07-2000 01:57 PM"
MsgBox DateDiff("n", d1, d2)
End Sub

= 21 minutes after you posted your second post....

Patience my boy...

In the meantime, look at VbNet: http://www.mvps.org/vbnet/

You'll probably find something there.

[Jop]

Got it for ya!

Private Sub Combo1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
For X = 0 To List1.ListCount - 1
If List1.Selected(X) = True Then
Combo1.AddItem List1.List(X)
End If
Next X
Combo1.Text = Combo1.List(0)
End Sub

Private Sub Form_Load()
List1.OLEDragMode = 1
Combo1.OLEDropMode = 1
    'Populate the list box
    For i = 0 To 20
        List1.AddItem i
    Next i
End Sub

Happy Now?

[Mikelo2k]

Ok, thanx man!