Private Sub Button1_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button1.Click
 
        Static lastclicktime As Date
 
        If DateDiff("s", lastclicktime, Now) < 2 Then
            Exit Sub
        Else
            lastclicktime = Now 'Druckzeitpunkt speichern
            'Button 1 gedrückt - mehr als 2 Sekunden seit letztem Druck 
            ' vergangen
        End If
    End Sub