使用listbox的click事件，
事件内容写
if listbox1.text="1" then
listbox2.text="a,b,c"
end if
另外一个类似写
Private Sub Form_Load()
List1.AddItem 1
List1.AddItem 2
End Sub
Private Sub List1_Click()
List2.Clear
If List1.List(List1.ListIndex) = 1 Then
List2.AddItem "a"
List2.AddItem "b"
List2.AddItem "c"
Else
List2.AddItem "d"
List2.AddItem "e"
List2.AddItem "f"
End If
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024