single-click dirlistbox

[lrfcbabe]

Is there any way to set a dirlistbox to use a single click event? .Selected is not a property of this control.

Private Sub dirSource_Change()
filSource.Path = dirSource.Path
End Sub

Private Sub dirSource_Click()
Dim i As Integer
For i = 0 To dirSource.ListCount - 1
Select Case dirSource.Selected(i)
Case True
dirSource.Path =
drvSource.Drive & "\" & dirSource.List(i)
Exit For
Case False
End Select
Next i
End Sub

 

[lrfcbabe]

Never fails, I post it, then I figure it out or find it.

http://www.tek-tips.com/viewthread.cfm?qid=873522

It had to be out there somewhere..in a galaxy far far away.