Public Sub Main()
        Dim frm As New Login
        Dim frm2 As New bedingungen
        Dim frm3 As New main
        Application.EnableVisualStyles()
        Application.Run(frm)
        Application.Run(frm2)
        Application.Run(frm3)
    End Sub