Public Class Form1         'Windows-Mobilitätscenter fürLaptops mit Windows 7
Declare Sub keybd_event Lib "user32" (bVk As Byte, bScan As Byte, dwFlags As _
  Int32, dwExtraInfo As Int32)
Dim WithEvents Btn As New Button With {.Dock = DockStyle.Bottom, .Text = _
"Mobilitäts-Center öffnen", .Parent = Me}
 
    Private Sub Btn_MouseDown(ByVal sender As Object, ByVal e As _
      MouseEventArgs) Handles Btn.MouseDown
        keybd_event(CByte(Keys.LWin), 0, 0, 0) 'L-Windows-Down
        keybd_event(CByte(Keys.X), 0, 0, 0)    'X-Down
        keybd_event(CByte(Keys.X), 0, 2, 0)    'X-Up
        keybd_event(CByte(Keys.LWin), 0, 2, 0) 'L-Windows-Up
    End Sub
End Class