Private Sub Command2_Click()
MsgBox comm
Select Case comm
Case comm = 11
Call Command11_Click
Case comm = 12
MsgBox comm
Call Command12_Click
Case comm = 13
Call Command13_Click
Case comm = 14
Call Command14_Click
Case comm = 15
Call Command15_Click
Case comm = 16
Call Command16_Click
End Select
End Sub

我都怀疑我的VB6是不是有毛病了，我的VB6中毒了！
我上面的cass条件有地方写错了没有啊？
我感觉是没有错误啊。但它只会跳出一个msgbox提示12(如果是12应该能跳出二个才对啊！）
comm是整数型变量。
所有的我要求根据数据来自动执行的点击按钮的过程都不操作！
我狂晕！！！！

[此贴子已经被作者于2006-10-18 21:05:41编辑过]

看来我真的是老了，我记的语言太多了，已经搞不清楚了。
VB6中的case用法是这样的：
Private Sub Command2_Click()
Select Case comm
Case 11
Call Command11_Click
Case 12
Call Command12_Click
Case 13
Call Command13_Click
Case 14
Call Command14_Click
Case 15
Call Command15_Click
Case 16
Call Command16_Click
End Select
End Sub

[此贴子已经被作者于2006-10-18 21:12:00编辑过]