CREATE CURSOR TestData (FirstCol Character(15), SecondCol Integer, ThirdCol Character(5)) INSERT INTO TestData VALUES ("Hello", 1, "One") INSERT INTO TestData VALUES ("World", 2, "Two") INSERT INTO TestData VALUES ("howdy", 3, "Three") GO TOP LOCAL TestForm AS Form m.TestForm = CREATEOBJECT("Form") m.TestForm.AddObject("TheGrid", "_Grid") WITH m.TestForm.TheGrid AS Grid .ColumnCount = 3 .RecordSource = "TestData" WITH .Columns(3) AS Column .RemoveObject("Text1") .AddObject("Combo1", "DropDownList") .CurrentControl = "Combo1" .Sparse = .F. ENDWITH .Visible = .T. ENDWITH m.TestForm.Show(1) BROWSE DEFINE CLASS _Grid AS Grid * we may need this later on ENDDEFINE DEFINE CLASS DropDownList AS ComboBox FUNCTION Init This.AddItem("One") This.AddItem("Two") This.AddItem("Three") This.Style = 2 ENDFUNC ENDDEFINEIs this working like you're intending?