如何在MSFlexGrid控件中添加下拉框？

Dim rr As Integer
Dim cc As Integer

Private Sub Combo1_Click()
Combo1.Visible = False
MSFlexGrid1.TextMatrix(rr, cc) = Combo1.Text

End Sub

Private Sub Combo1_LostFocus()
Combo1_Click
End Sub

Private Sub MSFlexGrid1_DblClick()

'MsgBox MSFlexGrid1.CellTop & "," & MSFlexGrid1.CellHeight
'MsgBox MSFlexGrid1.CellLeft & "," & MSFlexGrid1.CellWidth


If Combo1.Visible = True Then Combo1_LostFocus

rr = MSFlexGrid1.Row
cc = MSFlexGrid1.Col
Combo1.Visible = True
Combo1.Left = MSFlexGrid1.Left + MSFlexGrid1.CellLeft
Combo1.Width = MSFlexGrid1.CellWidth

Combo1.Top = MSFlexGrid1.Top + MSFlexGrid1.CellTop
'Combo1.Height = MSFlexGrid1.CellHeight

Combo1.Text = MSFlexGrid1.Text

End Sub