Private Sub Form1_Load(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim WithEvents NoExplorer As New clsShellWindow
 
        ' Timer-Intervall einstellen und starten
        Timer1.Interval = 10
        Timer1.Start()
    End Sub
 
    Private Sub Form1_FormClosing(ByVal sender As Object, _
          ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles _
          Me.FormClosing
 
        ' Timer stoppen
        Timer1.Stop()
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As Object, _
      ByVal e As System.EventArgs) Handles Timer1.Tick
 
        If CBool(GetAsyncKeyState(VK_LWIN) And 1) Or _
          CBool(GetAsyncKeyState(VK_RWIN) And 1) Then
 
            ' Wenn Windowstaste gedrückt, Escapetaste drücken...
            Call keybd_event(VK_ESCAPE, 0, 0, 0)
 
            ' ... und wieder loslassen
            Call keybd_event(VK_ESCAPE, 0, KEYEVENTF_KEYUP, 0)
        End If
 
    End Sub
 
    End Class