- Code: Select all Expand view
#include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oDlg
LOCAL cVar := ""
DEFINE DIALOG oDlg
@ 1, 1 COMBOBOX cVar;
ITEMS { "First", "Second", "Third" };
STYLE CBS_DROPDOWN
@ 3, 1 BUTTON "&Close" ACTION oDlg:End()
ACTIVATE DIALOG oDlg;
CENTER
RETURN NIL
EMG