FiveTech Support Forums

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg

    LOCAL cVar := "Other"

    LOCAL aItems := { "Test 1", "Test 2", "Test 3" }

    DEFINE DIALOG oDlg
 
    @ 1 , 1 COMBOBOX cVar;
            ITEMS aItems

    @ 3, 1 BUTTON "&Close";
           ACTION oDlg:End()

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL