Private loginForm As New frmLogIn
 
    Sub Main()
            loginForm.ShowDialog()
            loginForm.TopMost = True
    End Sub

     ...
     modMDI.MDI_Oeffnen()
     Me.Close()
     Exit Sub
     ...

    Sub MDI_Oeffnen()
        mdiForm.ShowDialog()
    End Sub

Gru?,

Sebastian M?ller

www.ComOnShop.de