DEFINE CLASS cboproblem AS form Top = 0 Left = 0 Height = 130 Width = 535 DoCreate = .T. Caption = "Form1" cbosource = 0 Name = "Form1" ADD OBJECT combo1 AS combobox WITH ; BoundColumn = 2, ; Height = 24, ; Left = 12, ; Top = 12, ; Width = 384, ; Name = "Combo1" ADD OBJECT text1 AS textbox WITH ; Height = 23, ; Left = 12, ; Top = 48, ; Width = 372, ; Name = "Text1" PROCEDURE Init CREATE CURSOR crsTesting (CharField C(200), IntField I) SELECT crsTesting INSERT INTO crsTesting (CharField, IntField) VALUES ("", 0) INSERT INTO crsTesting (CharField, IntField) VALUES ("Test 1", 1) INSERT INTO crsTesting (CharField, IntField) VALUES ("Test 2", 2) INSERT INTO crsTesting (CharField, IntField) VALUES ("Test 3", 3) INSERT INTO crsTesting (CharField, IntField) VALUES ("Test 4", 4) INSERT INTO crsTesting (CharField, IntField) VALUES ("Test 5", 5) INSERT INTO crsTesting (CharField, IntField) VALUES ("Test 6", 6) THISFORM.Combo1.ControlSource = "THISFORM.cboSource" THISFORM.Combo1.RowSourceType = 2 THISFORM.Combo1.RowSource = "crsTesting" ENDPROC PROCEDURE combo1.LostFocus MessageBox("Lost Focus") ENDPROC ENDDEFINE