Public Class frmMain
    Dim WithEvents HotKey As New clsHotKey(Me)
 
    Private Sub frmMain_Resize(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.Resize
        If Me.WindowState = FormWindowState.Minimized Then
            Me.ShowInTaskbar = False
            Me.WindowState = FormWindowState.Minimized
        End If
    End Sub
 
    Private Sub NotifyIcon1_Click(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles iconTray.Click
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Me.ShowInTaskbar = True
            Me.WindowState = FormWindowState.Normal
        End If
    End Sub
 
    Private Sub ReceiveHotKey(ByVal HotKeyID As String) Handles _
      HotKey.HotKeyPressed
        If HotKeyID = "eins" Then
            ...
        ElseIf HotKeyID = "zwei" Then
            ...
        End If
    End Sub
 
 
    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        HotKey.AddHotKey(Keys.NumPad0, clsHotKey.MODKEY.MOD_ALT, "eins")
        HotKey.AddHotKey(Keys.NumPad1, clsHotKey.MODKEY.MOD_ALT, "zwei")
        ...
    End Sub
End Class