The listbar does not have a ListItemDoubleClick event
My problem is that I have a listbar and a double click must be treated like a single click....I've come up with quite a good one (at least I think so)...

Here's my code... Please give me feedback..
plz be very critical cause I want this code to be fine and dandy(thank you)...


Code:
'API to get machines DoubleClickTimePrivate Declare Function GetDoubleClickTime& Lib "user32" ()
Private Sub Form_Activate()    Timer1.Interval = GetDoubleClickTime
End Sub

Private Sub SSListBar1_ListItemClick(ByVal ItemClicked As Listbar.SSListItem)    
Static sKey As String        
If Timer1.Enabled And ItemClicked.Key = sKey Then        
Text1.Text = "Double Clicked... Ignore last click..."        
Exit Sub    
End If        
Timer1.Enabled = True    
sKey = ItemClicked.Key        
Label1.Caption = "Slic was opened by " & ItemClicked.Text    
Text1.Text = ""    
End Sub
Private Sub Timer1_Timer()    
Timer1.Enabled = False
End Sub
[This message has been edited by Inhumanoid (edited 12-08-1999).]