XProfan

 $H windows.ph

Proc Dialog

    Declare hD%, hB%, OK%, CHK1%, CHK2%, CHK3%, CHK4%
    hD%   = @Create(Dialog,%DeskTop,Dialogfenster,100,100,600,400)
    hB%   = @Create(Button,hD%,&ENDE,10,10,60,25)
    CHK1% = @Create(CheckBox, hD%, Check 1, 10, 50, 100, 20)
    CHK2% = @Create(CheckBox, hD%, Check 2, 10, 80, 100, 20)
    CHK3% = @Create(CheckBox, hD%, Check 3, 10, 110, 100, 20)
    CHK4% = @Create(CheckBox, hD%, Check 4, 10, 140, 100, 20)
    für 2. Checkbox
    SendMessage(CHK2%,$00F4,~BS_AUTO3STATE,0)
    SendMessage(CHK2%,$00F1,~BST_INDETERMINATE,0)
    für 4. Checkbox
    SendMessage(CHK4%,$00F4,~BS_AUTO3STATE,0)
    SendMessage(CHK4%,$00F1,~BST_INDETERMINATE,0)
    Clear OK%

    WhileNot Ok%

        WaitInput

        If @Clicked(hB%)

            Ok% = 1

        ElseIf %Key = 2

            OK% = 1

        EndIf

    EndWhile

    @DestroyWindow(hD%)

EndProc

Dialog
Fin