vb 选择组合框 为控件选择鼠标类型

看着代码长，其实简单
在窗体画若干控件，然后画两个列表框，其中一个用来列出当前窗体上控件名称，另一个列表框列出15种鼠标形状。程序运行后，从第一个列表框选择空间或者窗体，从第二个列表框选择鼠标光标形状，为选择的控件或窗体设置所需的鼠标形状。列表框开始隐藏，双击窗体就可显示

Dim Char, know
Private Sub Form_DblClick()
List1.Visible = True
List2.Visible = True
End Sub

Private Sub Form_Load()

List1.Visible = False
List2.Visible = False

List1.AddItem "Picture1"
List1.AddItem "Command1"
List1.AddItem "Label1"
List1.AddItem "Text1"

List2.AddItem "1"
List2.AddItem "2"
List2.AddItem "3"
List2.AddItem "4"
List2.AddItem "5"
List2.AddItem "6"
List2.AddItem "7"
List2.AddItem "8"
List2.AddItem "9"
List2.AddItem "10"
List2.AddItem "11"
List2.AddItem "12"
List2.AddItem "13"
List2.AddItem "14"

vb 选择组合框 为控件选择鼠标类型 vb求助!组合框控件的问题 在VB中如何选择一个控件数组 vb中我怎么才可以获得组合框的选择项的指定号呀? VB通过选择相对应组合框内的不同组合来设置前景色或背景色? 日期选择控件 在vb中，如何通过选择组合框中的内容打开数据库（access）中相应的表 VB问题：msflexgrid控件中如果实现listbox效果选择多行呢 VB有没有让选择年月的控件(日期不用出来) 急！！！VB中DataGrid 控件怎么通过“选择行标头”来触发事件？