Public Shared MainInstance As frm_0000_Start
 
    Public Sub New()
        MyBase.New()
        MessageBox.Show("Start")
 
        ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
        InitializeComponent()
 
        'Auflösung auslesen
        Dim bounds As Rectangle = Screen.PrimaryScreen.Bounds
        csGlobal.AufloesungWidth = bounds.Width
        csGlobal.AufloesungHeight = bounds.Height
 
        csHDD.WriteErrorLog(Date.Now & "frm_000_Start-Konstruktor beendet")
        Application.EnableVisualStyles()
 
        Application.DoEvents()
        MessageBox.Show("Konstruktor beendet")
    End Sub
 
    Private Sub frm_0000_Start_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        'Dim frm_Me As New frm_0000_Start
        LoadForm = True
        MainInstance = Me
        Application.DoEvents()
 
        csDB.ConnectToDB()
 
       ' usw... aber bis hierher kommt das Prog. erst gar nicht!
   End Sub