oForm = CREATEOBJECT([Form1])
oForm.Show(1)


**************************************************
*-- Form:            form1 (d:\all_zapl\test.scx)
*-- ParentClass:     form
*-- BaseClass:       form
*-- Time Stamp:      10/27/06 06:41:12 PM
*
DEFINE CLASS form1 AS form


    Top = 0
    Left = 0
    Height = 79
    Width = 237
    DoCreate = .T.
    Caption = "Form1"
    Name = "Form1"


    ADD OBJECT combo1 AS combobox WITH ;
        BoundColumn = 2, ;
        ColumnCount = 2, ;
        ColumnWidths = "100,50", ;
        Height = 24, ;
        Left = 17, ;
        Style = 2, ;
        Top = 12, ;
        Width = 208, ;
        BoundTo = .T., ;
        Name = "Combo1"


    ADD OBJECT combo2 AS combobox WITH ;
        RowSourceType = 1, ;
        ControlSource = "crsTest.Fld1", ;
        Height = 24, ;
        Left = 17, ;
        Style = 2, ;
        Top = 47, ;
        Width = 208, ;
        Name = "Combo2"


    PROCEDURE Init
        CREATE CURSOR crsTest (Fld1 C(20))
        APPEND BLANK
        thisform.Combo1.AddListItem([ABC list],1, 1)
        thisform.Combo1.AddListItem([A,B,C]   ,1, 2)

        thisform.Combo1.AddListItem([DEF list],2, 1)
        thisform.Combo1.AddListItem([D,E,F]   ,2, 2)

        thisform.Combo1.AddListItem([GHI list],3, 1)
        thisform.Combo1.AddListItem([G,H,I]   ,3, 2)
        thisform.Combo1.Value = [A,B,C]
        thisform.Combo1.InteractiveChange()
    ENDPROC


    PROCEDURE combo1.InteractiveChange
        thisform.Combo2.RowSource = this.Value
        thisform.Combo2.Refresh()
        thisform.Combo2.ListIndex = 1
    ENDPROC


ENDDEFINE
*
*-- EndDefine: form1
**************************************************