I think there is a small bug in the VB6 PopupMenu Component. The MenuExit is never get fired (I'm using Windows XP). It's a bug when process the WM_MENUSELECT message.
The correct code should be:
If (lMenuId <> 0) Then ' ' .... other code here ' ' Raise a highlight or menu exit as required: If (bFound) Then RaiseHighlightEvent lMenuId Else RaiseMenuExitEvent End If Else RaiseMenuExitEvent End If
|