Module StartModul
    Public Sub Main()
        Dim frmAnm as new frmAnmeldung
        if frmAnm.ShowDialog <> DialogResult.Ok then
            end
        End if
        frmAnm.Dispose
 
        Dim frm as new frmMain
        frm.ShowDialog
        frm.Dispose
 
        end
    End Sub
End Module