DBGrid выпадающий список

[Tzana]

Уважаемые программисты! Как в элементе управления DBGrid (VB50) подключить к полю выпадающий список (Property Pages, вкладка Layout, флажок Button. Через обработку события ButtonClick, далее элемент DBList1 помещается на форму, и свойство Visible устанавливается в False, далее
Private Sub DBGrid1_ButtonClick(ByVal ColIndex As Integer)
Dim Co As Column
Set Co = DBGrid1.Columns(ColIndex)
Select Case ColIndex
Case 2
DBList1.Left = DBGrid1.Left + Co.Left + Co.Width
DBList1.Top = DBGrid1.Top +
DBGrid1.RowTop(DBGrid1.Row)
DBList1.Enabled = True
DBList1.Visible = True
DBList1.SetFocus
End Select
End Sub
у меня ничего не работает! Помогите пожалуйста добрые и терпеливые кто чем может!