VB6中MSFlexGrid控件下拉条的使用,该如何处理

VB6中MSFlexGrid控件下拉条的使用
比如3*3的表格
A1，A2，A3
B1，B2，B3
C1，C2，C3
我想把B2初始化成下拉的combo形式，list为（1,2,3）
同时把C3初始化成下拉的combo形式，list为（a,b,c）
有方法么？最好有例子
------解决方案--------------------

Private Sub Form_Load()

Dim i As Integer


    With MSFlexGrid1

        .Cols = 3

        .Rows = 1

        .FixedCols = 0

        .AddItem "A1" & vbTab & "A2" & vbTab & "A3", 1

        .AddItem "B1" & vbTab & "B2" & vbTab & "B3", 2

        .AddItem "C1" & vbTab & "C2" & vbTab & "C3", 3

        

        For i = 0 To 2

            .ColWidth(i) = Combo1.Width + 40

            .RowHeight(i + 1) = Combo1.Height

            Combo1.AddItem i + 1

            Combo2.AddItem Chr(65 + i)

        Next i

        

        Combo1.ListIndex = 0

        Combo2.ListIndex = 0

        

        .Col = 1

        .Row = 2

        Combo1.Left = .Left + .CellLeft + 10

        Combo1.Top = .Top + .CellTop

        

        .Col = 2

        .Row = 3

        Combo2.Left = .Left + .CellLeft + 10

        Combo2.Top = .Top + .CellTop

    End With

End Sub