oForm = CreateObject("f2") oform.Show(1) ************************************************** *-- Class: f2 (k:\f2.vcx) *-- ParentClass: form *-- BaseClass: form *-- Time Stamp: 10/23/06 10:12:11 AM * DEFINE CLASS f2 AS form DoCreate = .T. Caption = "Form1" Name = "Form1" ADD OBJECT combo1 AS combobox WITH ; Height = 24, ; Left = 48, ; Top = 60, ; Width = 180, ; Name = "Combo1" ADD OBJECT combo2 AS combobox WITH ; ControlSource = "x1.rsource", ; Height = 24, ; Left = 48, ; Top = 96, ; Width = 180, ; Name = "Combo2" ADD OBJECT combo3 AS combobox WITH ; RowSourceType = 1, ; RowSource = "A,b,c", ; ControlSource = "x1.rsource", ; Height = 24, ; Left = 48, ; Top = 133, ; Width = 180, ; Name = "Combo3" PROCEDURE Load IF USED("x1") SELECT x1 USE endif create CURSOr x1 ( rsource c(30)) SELECT x1 append blank ENDPROC PROCEDURE Init FOR f=1 TO 100 thisform.combo1.AddItem("i"+STR(f)) thisform.combo2.AddItem("i"+STR(f)) NEXT f ENDPROC ENDDEFINE * *-- EndDefine: f2 **************************************************