Module Module1
    Public UserId As String ' Wird von LoginForm gesetzt
    Public Sub main()
        Dim fl As New LoginForm
        If fl.ShowDialog() = DialogResult.OK Then
            fl.Dispose()
            Application.Run(New MainForm)
        End If
    End Sub
End Module

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist