Public Class Form1
 
    Inherits System.Windows.Forms.Form
 
 
 " Vom Windows Form Designer generierter Code "
 
 
    Private Sub PictureBox5_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs)
        'Power off Butten'
    End Sub
 
    Private Sub PictureBox6_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs)
        'Log out Butten'
    End Sub
 
    Private Sub PictureBox7_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs)
        'Neustarten Butten'
    End Sub
 
 
    Protected Overrides ReadOnly Property createparams() As CreateParams
        Get
            Dim myparam As CreateParams = MyBase.CreateParams
            myparam.ClassStyle = myparam.ClassStyle Or &H200
            Return myparam
        End Get
    End Property
    ' benötigte API-Deklarationen
    Private Declare Function GetAsyncKeyState Lib "user32" ( _
      ByVal vKey As Integer) As Short
    Private Declare Sub keybd_event Lib "user32" ( _
      ByVal bVk As Byte, _
      ByVal bScan As Byte, _
      ByVal dwFlags As Integer, _
      ByVal dwExtraInfo As Integer)
 
    Const KEYEVENTF_KEYUP = &H2
    Const VK_ESCAPE = &H1B
    Const VK_LWIN = &H5B
    Const VK_RWIN = &H5C
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles MyBase.Load
 
        ' 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
    End Sub
    Private Sub CreateMyStatusBar()
        ' Create a StatusBar control.
        Dim statusBar1 As New StatusBar()
 
        ' Create two StatusBarPanel objects to display in the StatusBar.
        Dim panel4 As New StatusBarPanel()
        Dim panel5 As New StatusBarPanel()
 
        ' Display the first panel with a sunken border style.
        panel4.BorderStyle = StatusBarPanelBorderStyle.Sunken
 
        ' Initialize the text of the panel.
        panel4.Text = "Ready..."
 
        ' Set the AutoSize property to use all remaining space on the StatusBar.
        panel4.AutoSize = StatusBarPanelAutoSize.Spring
 
        ' Display the second panel with a raised border style.
        panel5.BorderStyle = StatusBarPanelBorderStyle.Raised
 
        ' Create ToolTip text that displays the time the application was 
        ' started.
        panel5.ToolTipText = "Started: " & _
          System.DateTime.Now.ToShortTimeString()
 
        ' Set the text of the panel to the current date.
        panel5.Text = System.DateTime.Today.ToLongDateString()
 
        ' Set the AutoSize property to size the panel to the size of the 
        ' contents.
        panel5.AutoSize = StatusBarPanelAutoSize.Contents
 
        ' Display panels in the StatusBar control.
        statusBar1.ShowPanels = True
 
        ' Add both panels to the StatusBarPanelCollection of the StatusBar.			
        statusBar1.Panels.Add(panel4)
        statusBar1.Panels.Add(panel5)
 
        ' Add the StatusBar to the form.
        Me.Controls.Add(statusBar1)
 
        ' 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