Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        If m.Msg = ... Then
            Beep()
        Else
            MyBase.WndProc(m)
        End If
    End Sub

    Private Declare Function InsertMenuItem Lib "user32.dll" Alias _
      "InsertMenuItemA" (ByVal hMenu As Integer, ByVal wPosition As Integer, _
      ByVal wFlags As Integer, ByRef wIDNewItem As Integer, ByVal lpNewItem As _
      String) As Boolean
 
    Private Sub ChangeTaskbarMenu2()
        Const MF_BYPOSITION = &H400
        Const _SettingsSysMenuID As Integer = 1000
 
        InsertMenuItem(GetSystemMenu(Me.Handle, False), 0, MF_BYPOSITION, _
          _SettingsSysMenuID, "Settings...")
 
    End Sub