This example displays the What's This Help topic for a CommandButton control by selecting a menu command from a context menu created for the button. Set the WhatsThisHelp property of the form to True. Place a CommandButton control on a form, create a menu using the Menu Editor with a top-level invisible item named mnuBtnContextMenu, and a sub-menu named mnuBtnWhatsThis with a caption of "What's This?".
Private ThisControl As Control
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
Set ThisControl = Command1
PopupMenu mnuBtnContextMenu
End If
Set ThisControl = Nothing
End Sub
Private Sub mnuBtnWhatsThis_Click()
ThisControl.ShowWhatsThis
End Sub