Private Sub Command1_Click()
If Option1.Value Then
Form3 Load
Form3.Show 1
End If '这里少一个!
If Option2.Value Then
Form5 Load
Form5.Show 1
End If
If Option3.Value Then
Form6 Load
Form6.Show 1
End If
If Option4.Value Then
Form4 Load
Form4.Show 1
End If
End Sub
Select Case True
这里错了,case 后边应该是一个变量
select case x(x为一变量)