Option Explicit

Private Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" ( _
 ByVal hMenu As Long, ByVal uFlags As Long, ByVal idNewItem As Long, _
 ByVal lpszNewItem As String) As Long
Private Declare Function CreateMenu Lib "user32" () As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
 ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _
 ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _
 ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetMenu Lib "user32" ( _
 ByVal hwnd As Long, ByVal hMenu As Long) As Long