Public Class Form1
    Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As IntPtr, _
      ByVal id As Integer, _
    ByVal fsModifier As Integer, ByVal vk As Integer) As Integer
    Private Declare Sub UnregisterHotKey Lib "user32" (ByVal hWnd As IntPtr, _
      ByVal id As Integer)
    Private Const Key_ALT As Integer = &H1
    Private Const Key_CONTROL As Integer = &H2
    Private Const Key_SHIFT As Integer = &H4
    Private Const Key_WIN As Integer = &H8
    Private Const WM_HOTKEY As Integer = &H312
    Protected Overrides Sub WndProc(ByRef m As Message)
        If m.Msg = WM_HOTKEY Then
            Me.Show()
        End If
        MyBase.WndProc(m)
    End Sub
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        UnregisterHotKey(Me.Handle, 42)
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        RegisterHotKey(Me.Handle, 42, Key_WIN, Keys.S)
        Me.Hide()
    End Sub
End Class