XProfan

 $U thread.pcu = thread.
Declarar dum&,x&,y&,texto$
Cls
thread.start 1,6
thread.start 2,2

whilenot (%key==2)

    waitinput

Wend

thread.stopall
End

proc thread.do

    parámetros n&

    If n&=1

        MessageBox("Willst du mich wirklich testen?","Messagebox",$4004)    $4000 para WM_HELP
        thread.stopall

    ElseIf n&=2

        If %mensaje=83   WM_HELP

            Repaint        sonst Vielfachaufruf bajo XP
            Imprimir "Jetzt Ayuda aufrufen!"

        EndIf

    EndIf

ENDPROC

Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
Messagebox: Hilfebutton abfragen
 $U thread.pcu = thread.
Declarar dum&,x&,y&,texto$
Cls
thread.start 1,6
thread.start 2,2

whilenot (%key==2)

    waitinput

Wend

thread.stopall
End

proc thread.do

    parámetros n&

    If n&=1

        MessageBox(Willst du mich wirklich testen?,Messagebox,$4004) $4000 para WM_HELP
        thread.stopall

    ElseIf n&=2

        If %mensaje=83 WM_HELP

            Repaint   sonst Vielfachaufruf bajo XP
            Imprimir Jetzt Ayuda aufrufen!

        EndIf

    EndIf

ENDPROC