如何实现这样的操作?

Private Sub Combo1_Click()
If Combo1.Text = "a" Then
Combo2.AddItem "aa"
Combo2.AddItem "bb"
End If
End Sub

这个你只需要在网站搜索3层交换机设置就可以了啊!

Private Sub Combo1_Change()
If Me.Combo1.Text = "a" Then
Me.Combo2.Text = "bb"
Me.Combo3.Text = "cc"
End If
End Sub
这样只是赋值给另两个COMBO，和普通的文本框没区别

你还是说出你要实现什么目的吧

在combo中调用click事件，然后click事件中
combo2.additem commbo1.text
这样就可以了。