Private Sub mj_Click()
Dim filename As String
Dim aa, bb, cc As Integer
aa = MsgBox("是否为外购件", vbYesNo, "请选择")
If aa = 1 Then
bb = MsgBox("进入成本计算系统", vbYesNo, "请选择")
If bb = 2 Then
Form2.Show
Else
Form5.Show
End If
Else
cc = MsgBox("请直接输入成本", vbYes, "请选择")
If cc = 1 Then
Form2.Show
End If
End If
End Sub

怎么让form2和form5能调用？

问题解决了,跟大家分享一下!
将aa=1改为aa=7, 同样让bb=7.现在就没什么问题了.

关键问题是vbYesNo这个按钮有特定的参数值!

这样的比我的要简单的多了，谢谢了!!!

恩，看出来了，可能是笔下误