Height = 159 Width = 189 Desktop = .F. ShowWindow = 2 DoCreate = .T. AutoCenter = .T. Caption = "Get State" TitleBar = 0 WindowType = 1 WindowState = 0 AlwaysOnTop = .T. BackColor = 128,128,128 thisstate = ('') al_state = ([]) Name = "getstate" sa_label1.Visible = .F. sa_label1.Name = "sa_label1"The methods are very simple:
PROCEDURE Unload RETURN THIS.THISSTATE ENDPROC PROCEDURE Init *!* USE *!* IF !USED(DATAPATH + '\USERCODE') *!* USE (DATAPATH + '\USERCODE') SHARED IN 0 *!* ENDIF **** this is the array that will populate the list box on the form SELECT CODE,CODEDESC FROM USERCODE ; INTO ARRAY laMyState ; WHERE CODETYPE = 'STATE' ENDPROC