I got this code to create a Help menu

DIM AS INT OSErr, @firstCustomHelpItem
DIM AS HANDLE @hmHandle

#If CarbonLib
OSErr = FN HMGETHELPMENU(hmHandle,firstCustomHelpItem)
#ELSE
OSErr = FN HMGETHELPMENUHANDLE(hmHandle)
firstCustomHelpItem = FN COUNTMITEMS(hmHandle)+1
#EndIf


CALL APPENDMENU(hmHandle,"<B/?HBasic Help...")
CALL APPENDMENU(hmHandle,"-")
CALL APPENDMENU(hmHandle,"/1Programming Manual")
CALL APPENDMENU(hmHandle,"/2HBasic on the Web")

Now how do I make the help menus do something when selected?

Brian