' Test war zunächst nicht erfolgreich - alle Controls übereinander ???
' Die mit dem Dialog-Tool erzeugte Vorlage ist nur sehr eingeschränkt brauchbar!
' Jetzt (in der Arbeitsversion) editiert  -> hier nun die bereinigte Version: OK
' die Fragestellungen in den Anmerkungen müssen bei Bedarf noch bearbeitet werden.
'
#COMPILE EXE
#DIM ALL
'
GLOBAL hParent&, hDlg&                                                      ' Dialog handle
FUNCTION PBMAIN () AS LONG
'
LOCAL Style&, ExStyle&, id1&, id2&, id3&, id4&, id5&, id6&, id7&, id8&, id9&, id10&      ' hier mit "&"
    Style& = %WS_POPUP OR %DS_MODALFRAME OR %WS_CAPTION OR %WS_MINIMIZEBOX OR %WS_SYSMENU OR %DS_CENTER
    ExStyle& = 0
    id1 = 101                                                               ' IDs der Controls
    id2 = 102
    id3 = 103
    id4 = 104
    id5 = 105
    id6 = 106
    id7 = 107
    id8 = 108
    id9 = 109
    id10 = 110
LOCAL lResult&
DIALOG NEW hParent&, "Dialog Title", 0, 0,  400,  300, Style&, ExStyle& TO hDlg&
'
CONTROL ADD BUTTON, hDlg&, id1, "Abbrechen", 50, 250, 40, 20                ' "Abbrechen ok
'
CONTROL ADD BUTTON, hDlg&, id2, "OK", 300, 250, 40, 20                      ' OK ok
'
CONTROL ADD LABEL, hDlg&, id3, "GUI-Test", 180, 10, 100, 200                ' Schrift zu klein -> Style ???
'
CONTROL ADD LISTBOX, hDlg&, id4, , 50, 30, 50, 100                          ' Listbox style ???
'
CONTROL ADD COMBOBOX, hDlg&, id5, , 150, 30, 50, 100                        ' Combobox style ???
'
'    CONTROL         "Check", 106, "Button", BS_AUTOCHECKBOX | WS_TABSTOP, 29, 106, 40, 10
CONTROL ADD CHECKBOX, hDlg&, id6, "Check", 250, 30, 50, 10                  ' Checkbox style ???
'
CONTROL ADD CHECK3STATE, hDlg, id7, "Radio1", 250, 100, 50, 10              ' RadioBottum style ???
'
CONTROL ADD CHECK3STATE, hDlg, id10, "Radio2", 250, 150, 50, 10             ' RadioBottum style ???
'
CONTROL ADD TEXTBOX, hDlg, id8, "", 50, 150, 100, 20                        ' InputTextBox style ???
'
CONTROL ADD FRAME, hDlg, id9, "", 10, 5, 380, 200                           ' FrameRahmen Style ???
'
DIALOG SHOW MODAL hDlg TO lResult
' ** Check the dialog return result                                         ' ???
IF lResult THEN
    MSGBOX "Hello ", &H00002000&       ' = %MB_TASKMODAL
END IF
'
END FUNCTION