[求助]重新登录的问题
我编写了一段重新登录程序的代码:
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后还是运行错误.请大家帮忙,谢谢!
