Module Module1
    Public Frmobj As New MDIParent1()

    Sub Main()
        'Application.EnableVisualStyles()
        'Application.DoEvents()
        Application.Run(LoginForm1)
        'Dim frm As New LoginForm1
        'frm.Show()
        'Application.Run()
    End Sub
End Module

    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        Dim FrmMain As New MDIParent1

        '1b.页面从登录窗口登录跳转到主窗口
        FrmMain.Show()
        '1c.保证主窗体由于登录窗体的关闭而关闭
        Me.Finalize()
        Me.Close()
    End Sub

[ 本帖最后由 plggli 于 2010-6-24 15:50 编辑 ]

自个顶下

你的文件下不了哦，讲清楚点行不啊