Public Sub Main()
     MsgBox 1
On Error GoTo proc_err
40   If Not InStr(1, Now(), "/") > 0 Then
50        DATE_Max = "01.01.2099 00:00:01"
60        DATE_Min = "01.01.1970 00:00:01"
70   Else
80        USFLAG = True
90        DATE_Max = "01/01/2099 00:00:01"
100       DATE_Min = "01/01/1970 00:00:01"
110  End If
120  appPathConfig = App.Path & "\"
130  appPathConfig = Replace(appPathConfig, "\\", "\")
150  Load WMAForm
     MsgBox 2
160  WMAForm.Visible = False
     MsgBox 3
170  WMAForm.setSize ' ich habe jetzt mal alle funktionen von setSize 
' auskommentiert
     MsgBox 4
180  fillLimits
     log2file "bei 5", "bei 5"
     MsgBox 5
 
190  Load tvForm
200  Load StartForm
     ' Load detailForm
210  Load detailFormNeu
220  Load groupForm
     Load frmImportKonfig
230  Load frmUserGroups
240  Load configForm
     ' Load frmQuickConfig
250  Load overviewForm
260  Load archivForm
270  Load infoForm
280  Load frmReglerInfo
     '  Load graphForm
     '  Load archivDetailForm
     MsgBox 6
...
...
...
     Exit Sub
proc_err:
     log2file "prozess_error", "prozess_error"
     Process_Error "main", False
End Sub