我编写了一段重新登录程序的代码:
If MsgBox("你真的要重新登录吗？", vbOKCancel + vbExclamation, "警告") = vbOK Then
Unload Me
sub main()
end sub
End If

Sub main()
Dim pass As New pass
pass.Show vbModal
If Not pass.OK Then
End
End If
Unload pass
Set fMainForm = New frmMain
fMainForm.Show
End Sub
运行时说少end sub ,我加了end sub后还是运行错误.请大家帮忙,谢谢!

[CODE]If MsgBox("你真的要重新登录吗？", vbOKCancel + vbExclamation, "警告") = vbOK Then
Unload Me
sub main()
end sub
End If[/CODE]

把下划线的代码去掉

你见过有这么调用子例程的？