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 du mich wirklich testen?","Messagebox",$4004)    $4000 für WM_HELP
        thread.stopall

    ElseIf n&=2

        If %message=83   WM_HELP

            Repaint        sonst Vielfachaufruf unter XP
            Print "Jetzt Hilfe aufrufen!"

        EndIf

    EndIf

endproc

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Messagebox: Hilfebutton abfragen
 $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 du mich wirklich testen?,Messagebox,$4004) $4000 für WM_HELP
        thread.stopall

    ElseIf n&=2

        If %message=83 WM_HELP

            Repaint   sonst Vielfachaufruf unter XP
            Print Jetzt Hilfe aufrufen!

        EndIf

    EndIf

endproc