combobox下拉所选值储存

Question

怎么储存combobox下拉所选值储存
combobox  名称cbogear1   怎么储存所选的值，供后面窗口利用
cbogear1.AddItem "对称支承"
cbogear1.AddItem "非对称支承"
cbogear1.AddItem "悬臂支承"

Answer 1

用一个Collection保存值，再传出去
Dim col As New Collection
Dim i As Integer
For i = 0 To cbogear1.ListCount - 1
    col.Add cbogear1.List(i)
Next

Answer 2

你给工程添加一个module,然后里面定一个public 变量 strSelected然后strSelected=cbogear1.text然后在其他form中直接用strSelected