Private Sub ListView1_DoubleClick(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles ListView1.DoubleClick
        Timer1.Stop()
        MsgBox("doppelklick")
    End Sub
 
    Private Sub ListView1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles ListView1.Click
        Timer1.Start() 
        ListView1.Tag = Convert.ToInt16(ListView1.Tag) + 1
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        Timer1.Stop() 
 
        If Convert.ToInt16(ListView1.Tag) > 0 Then MsgBox("klick")
        ListView1.Tag = 0
    End Sub