MenuBold

Private Declare Function GetMenu _
Lib "user32" ( _
ByVal hwnd As Long) As Long

Private Declare Function GetSubMenu _
Lib "user32" ( _
ByVal hMenu As Long, _
ByVal nPos As Long) As Long

Private Declare Function SetMenuDefaultItem _
Lib "user32" ( _
ByVal hMenu As Long, _
ByVal uItem As Long, _
ByVal fByPos As Long) As Long

Public Sub SetBold(frmBold As Form, iMenuIndex As Long, _
iItemIndex As Long)
Dim hMnu As Long, hSubMnu As Long
hMnu = GetMenu(frmBold.hwnd)
hSubMnu = GetSubMenu(hMnu, iMenuIndex)
Call SetMenuDefaultItem(hSubMnu, iItemIndex, 1&)
End Sub