Double Clicking the ListBar

[Inhumanoid]

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)...

'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).]

[Inhumanoid]

I just came up with some new code...
Is this better ?

Private Declare Function GetDoubleClickTime& Lib "user32" ()

Private Sub SSListBar1_ListItemClick(ByVal ItemClicked As Listbar.SSListItem)
    Static dClick As Double
    Static sKey As String
       
    If dClick + (GetDoubleClickTime / 1000) > Timer And sKey = ItemClicked.Key Then
        'This is a true double click so we leave the sub
        dClick = 0
        Exit Sub
    Else
        'User too slow or different Listitem
        dClick = 0
    End If
    
    If dClick = 0 Then
        'True first click or too slow second click
        dClick = Timer
    End If
    
    sKey = ItemClicked.Key
    
    
    'All other code goes here...
    
End Sub