Private Sub Form_Load()
    Dim i As Integer
    If app.PrevInstance Then
        MsgBox " Versand-Programm ist schon gestartet.", vbOKOnly
        Unload Me
        'Form_Unload (1)
        End
    End If
    Timer1.Enabled = True
    Timer1.Interval = 100
    ProgressBar1.Value = 1
    ProgressBar1.Min = 1
    ProgressBar1.Max = 1100
    frAuto.Left = 0
    'For i = 0 To 10
    'DoEvents
    'Next i
     'Call fGraficAnimationExplode(Me, 1000)
 
    Screen.MousePointer = vbDefault
End Sub
 
Private Sub Timer1_Timer()
 
Dim b As Long
Dim i As Integer
 
  For i = 1 To ProgressBar1.Max
    Load frmFrachtbrief         
    DoEvents
   frAuto.visible = True
    If frAuto.Left < 5030 Then
        DoEvents
        frAuto.Left = frAuto.Left + 3
        DoEvents
     Else
        DoEvents
        frAuto.Left = 120
        DoEvents
     End If
    ProgressBar1.Value = i
  Next
     DoEvents
    frmFrachtbrief.Show
    DoEvents
    Unload Me
End Sub