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 Inputs: Chiamare la funzione nel seguente modo Call SetBold(Me, 1, 2) Argomenti: ---------- Me = Il form attivo 1 = Menu index mnuEdit 2 = Item index mnuEditPaste |