XProfan

 $u thread.pcu = thread.
Declare dum&,x&,y&,Text$
Cls
thread.start 1,6
thread.start 2,2

whilenot (%key==2)

    waitinput

Wend

thread.stopall
End

proc thread.do

    parameters n&

    If n&=1

        MessageBox("Willst You me really testing?","Messagebox",$4004)    $4000 for WM_HELP
        thread.stopall

    ElseIf n&=2

        If %message=83   WM_HELP

            Repaint        otherwise Vielfachaufruf under XP
            Print "Jetzt Help Call!"

        EndIf

    EndIf

endproc

Source watts on the 15.07.2007 from the MMJ-Quellcodesammlung (Dietmar horn) in The Babyklappe on XProfan.Com stored:
Messagebox: Helpbutton inquire
 $u thread.pcu = thread.
Declare dum&,x&,y&,Text$
Cls
thread.start 1,6
thread.start 2,2

whilenot (%key==2)

    waitinput

Wend

thread.stopall
End

proc thread.do

    parameters n&

    If n&=1

        MessageBox(want You me really testing?,Messagebox,$4004) $4000 for WM_HELP
        thread.stopall

    ElseIf n&=2

        If %message=83 WM_HELP

            Repaint   otherwise Vielfachaufruf under XP
            Print now Help Call!

        EndIf

    EndIf

endproc