菜鸟求助~请问有没有一个控件，可以显示列表，而且列数可变呢？

比如我在TEXTBOX中输入7，那么那个列表的控件中就会有7列~
如果有的话怎么赋值？
谢谢各位了~ --------------------编程问答-------------------- grid.cols = val(text.text) --------------------编程问答-------------------- 非常感谢楼上...困扰我1天了...
--------------------编程问答-------------------- mshflexgrid控件

sub text1_change
  on error resume next
  mshflexgrid1.rows=cint(text1)
end sub --------------------编程问答-------------------- mshflexgrid控件

sub text1_change
  on error resume next
  mshflexgrid1.rows=cint(text1)
end sub

补充：VB ,  控件