VSFlexGrid.ComboList для одного поля - VB

Формулировка задачи:

Если кто знает то подскажите пожалуйста как в коде во время выполнения реализовать комбобокс одного поля в гриде VSFlexGrid.

Решение задачи: «VSFlexGrid.ComboList для одного поля»

textual
                            Листинг программы 
                        

                            <font color="blue">Private</font> <font color="blue">Sub</font> vs_Click()
<font color="blue">With</font> vs
.Editable = flexEDKbdMouse
<font color="blue">If</font> .Col = <font color="darkblue"><b>2</b></font> <font color="blue">And</font> .Row = <font color="darkblue"><b>1</b></font> <font color="blue">Then</font>
    .ColComboList(.Col) = <font color="teal">"Значение1|Значение2"</font>
<font color="blue">Else</font>
    .ColComboList(.Col) = <font color="teal">""</font>
<font color="blue">End</font> <font color="blue">If</font>
<font color="blue">End</font> <font color="blue">With</font>
<font color="blue">End</font> <font color="blue">Sub</font>
                        