Private Sub Form_Load()
Dim myRGB As tRGB
Dim mySchriftRGB As tRGB
Dim i As Integer
Dim PW_Schrift As Integer
 
    On Error GoTo err
 
    Me.Enabled = False
 
    If Not CheckForSmallFonts(PW_Schrift) Then
    ' "große Schriftarten" ist eingestellt
        If PW_Schrift > 96 Then
            Schriftgröße = 8
        ElseIf PW_Schrift = 96 Then
            Schriftgröße = 11
 
        End If
 
    End If
 
    fg_Profil_Spalten Me.fg_Profil, Schriftgröße
 
    Set Me.picChecked.Picture = LoadPicture(App.Path & "\Grafiken\x_on.bmp")
    Set Me.picunChecked.Picture = LoadPicture(App.Path & "\Grafiken\x_off.bmp")
 
    'Uhrzeit anzeigen
    Timer1.Interval = 1000
    Timer1_Timer
 
 
    Schriftfarbensetzen Me
    Farbverlauf frm_Hauptmenü
    DoEvents
 
    Me.Show
    Ende = True
 
    Me.Größe_anpassen
 
    Warten  'Animation anzeigen
    DoEvents    
 
    Profil_erstellen CInt(g_PersZähler)
    Offene_Gutachten_Füllen Me.fg_OffeneGA, Schriftgröße
    Vorgänge_Ohne_Umsetzungsaufträge Me.fg_Umsetzung(0), CInt(g_PersZähler), _
      Schriftgröße
    meine_Nicht_Umgesetzten_Aufträge Me.fg_Umsetzung(1), g_PersID, "", _
    Schriftgröße
    meine_Nicht_umgesetzten_Vorgänge Me.fg_Umsetzung(2), g_strNachname, "", _
    Schriftgröße
    Me.Größe_anpassen
    DoEvents 
 
 
    Me.Enabled = True
    Timer2.Enabled = False
    Timer2_Timer
    Me.Enabled = True
 
    For i = 0 To Me.Image1.Count - 1
        Me.Image1(i).Visible = False
    Next
 
 
Exit Sub
err:
MsgBox err.Description, vbCritical, "Fehler beim Laden der Daten ....."
 
End Sub
Sub Warten()
 
    Me.Image1(0).ZOrder
    Me.Image1(0).Top = Me.Height / 2 - Me.Image1(0).Height / 2
    Me.Image1(0).Left = Me.Width / 2 - Me.Image1(0).Width / 2
 
    Timer2.Enabled = False
    strDatei = App.Path & "\Grafiken\Kreis.gif"
 
    GIF_LADEN strDatei, Image1
    DoEvents
 
    Timer2.Enabled = True
    Timer2.Interval = 1000
    Timer2_Timer
    DoEvents
 
End Sub

Wer aufhört sich zu verbessern, hört auf gut zu sein.