Public PicNo    As Integer
 
Private Sub Form_Load()
  'Kopier-Dialog wird geöffnet
 
  Dim BildSrc   As String
  Dim BildDst   As String
 
  SetTopMost DlgCopy
  PicNo = 1
  xSrcTyp = 1
  xDstTyp = 2
  Select Case xSrcTyp
    Case 1: BildSrc = App.Path & "\data\bin\cpapc.dat"
    Case 2: BildSrc = App.Path & "\data\bin\cpasv.dat"
  End Select
  Select Case xDstTyp
    Case 1: BildDst = App.Path & "\data\bin\cpapc.dat"
    Case 2: BildDst = App.Path & "\data\bin\cpasv.dat"
  End Select
  If ExistsFile(BildSrc) Then PicSrc.Picture = LoadPicture(BildSrc)
  If ExistsFile(BildDst) Then PicDst.Picture = LoadPicture(BildDst)
  Call KopiereProjektVonNach  '<< dieses Sub blockiert alles
End Sub
 
Private Sub BtnAbbrechen_Click()
  'Vorgang abbrechen
  Unload Me
End Sub
 
Private Sub Timer1_Timer()
  'Fliegende Blätter anzeigen
 
  Dim BildAni    As String
 
  If PicNo > 12 Then PicNo = 1
  BildAni = App.Path & "\data\bin\cpx"
  If PicNo < 10 Then
    BildAni = BildAni & "0" & CStr(PicNo) & ".dat"
  Else
    BildAni = BildAni & CStr(PicNo) & ".dat"
  End If
  If ExistsFile(BildAni) Then
    PicAnimation.Picture = LoadPicture(BildAni)
  End If
  PicAnimation.Refresh
  PicNo = PicNo + 1
  PgbProzent.Value = PgbProzent.Value + 1
  If PgbProzent.Value = 100 Then PgbProzent.Value = 0
  Call ShowAktFile(BildAni)
End Sub
 
Private Sub ShowAktFile(xDateiName As String)
  Const MaxLen = 53
  If Len(xDateiName) > MaxLen Then
    TxtInfo.Caption = Left(xDateiName, (MaxLen / 2) - 3) & _
      "..." & Right(xDateiName, MaxLen / 2)
  Else
    TxtInfo.Caption = BildAni
  End If
End Sub

Form DlgCopy
PictureBox PicSrc
PictureBox PicAnimation 
PictureBox PicDst 
Label TxtInfo 
CommandButton BtnAbbrechen