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_NONE As Integer = &H0
    Private Const WM_HOTKEY As Integer = &H312
 
    Protected Overrides Sub WndProc(ByRef m As Message)
        If m.Msg = WM_HOTKEY Then
            UnregisterHotKey(Me.Handle, 42)
            Me.Show()  ' oder das Programm hier beenden
        End If
        MyBase.WndProc(m)
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        RegisterHotKey(Me.Handle, 42, Key_NONE, Keys.F5)
        Me.Hide()
    End Sub
 
End Class