sub main()

sub main()这一过程的作用：

1. 设置启动对象

   说的简单一点，我们平时见到的启动对象多是窗体，一般默认是你设计程序的第一个窗体FORM1，程序打开后最先运行的代码也就是form1_load（）里的代码，但是有了sub main（），你就可以以一段代码作为程序的入口，这段代码的执行发生在所有窗体的打开之前。方法是建立一公有模块，里面写入sub main代码，然后右键工程属性，把启动对象设为sub main即可。

2. 显示启动时的快速显示

   如果启动时有一个较长的执行过程，例如要从数据库中装入大量数据或者要装入一些大型位图，这时可能希望在启动时给出一个快速显示。快速显示是一种窗体，它通常显示的是诸如应用程序名，版权信息和一个简单的位图等内容。启动 Visual Basic 时所显示的屏幕就是一个快速显示。

   例如这个图片就是运用了这一方法：
   

Sub Main()
    '定义登陆窗口
    Dim fLogin As New frmLogin

    '显示登录窗体，并设置为模式窗体
    fLogin.Show vbModal   '可以用1代替vbModal
    '窗体分为模式的和非模式的
    '模式的(vbmodal也可以是一个常量，为1)——使用户只能使用当前窗体，只有当前窗体关闭后其他窗体才可用；
    '非模式的——可以切换到其他窗体

    '如果登陆不成功，退出程序
    'NOT--“取反”
    If Not fLogin.OK Then
        End
    End If


    '卸载登陆窗口
    Unload fLogin

    '定义主窗口
    Set fMainForm = New frmMain

    '显示主窗口
    fMainForm.Show

End Sub

'如果登陆不成功，退出程序
    'NOT--“取反”
    If Not fLogin.OK Then
        End
    End If

上面代码的作用和以下的代码产生联系：

 '如果登陆次数超过限定次数，关闭程序
    If MaxLogTimes = 3 Then
        MsgBox "登陆次数超过允许范围，程序将关闭！", vbOKOnly + vbExclamation, "警告"
        Unload Me
    End If

如果没有写“登录不成功，退出程序”的代码，当密码错误三次之后，程序并不会终止，而是直接进去了。