按键精灵下拉框 怎么做。。

方法如下：
除了输入框为字符串，界面返回值大多数是0123456789其中一个，根据这个值再变化即可。
如：
Dim a
MessageBox "下拉框值是"&Form1.ComboBox1.ListIndex
If Form1.ComboBox1.ListIndex = 0 Then
a="我"
ElseIf Form1.ComboBox1.ListIndex = 1 Then
a="你"
ElseIf Form1.ComboBox1.ListIndex = 2 Then
a="他"
Else
a="其它"
End If
MessageBox "a的值为 "&a

代码如下：
Event Form1.ComboBox1.SelectChange
If Form1.ComboBox1.ListIndex = 0 Then
Form1.ComboBox2.List = "数据1|数据2|数据3"
ElseIf Form1.ComboBox1.ListIndex = 1 Then
Form1.ComboBox2.List = "参数1|参数2|参数3"
ElseIf Form1.ComboBox1.ListIndex = 2 Then
Form1.ComboBox2.List = "选项1|选项2|选项3"
End If
End Event