Const MF_HELP = &H4000&
Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ModifyMenu Lib "user32" Alias "ModifyMenuA" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpString As Any) As Long
Const MF_BYPOSITION = &H400&
Const MF_POPUP = &H10&
Private Sub Form_Load()
Dim hMenu
hMenu = GetMenu(hwnd)
ModifyMenu hMenu, 4, MF_HELP Or MF_POPUP Or MF_BYPOSITION, 0, "5"
End Sub