Public Application As New ClsApplication
'******************************************************************************
' *****
' Die Klasse Application hat im Initialize - Event die Aufgabe, alle Parameter
' aus einer Ini-File auszulesen und Eigenschaften der Klasse zuzuweisen.
' *****************************************************************************
' ******
 
Private Sub Main()
        Dim oFrm As Object
 
        'Bereits hier ist das Programm initialisiert (siehe oben)
 
        If Application.Workpath = "" Then
                 Form2.Show
        Else
                 Form1.Show
        End If
 
        'Hier evtl. globale Objekte aufräumen ...
        Set Application = Nothing
End Sub