Public Sub DoCopyProjekt(xSrc As String, xDst As String)
  'Kopiervorgang mit Dialog starten
  Dim ii, PicNo  As Integer
  Dim BildAni    As String
  Dim OldTime
  OldTime = Timer
  PicNo = 1
  WindowComunication(1) = xSrc
  WindowComunication(2) = xDst
  Load DlgCopy
  DlgCopy.Show
  For ii = 1 To 100
    With DlgCopy
      .Refresh
      .TxtInfo.Caption = CutToLen("Kopiere: " & CStr(ii), 57)
      'Fortschritt anzeigen in Prozent
      .PgbProzent.Value = .PgbProzent.Value + 1
      If .PgbProzent.Value = 100 Then .PgbProzent.Value = 0
      'Animation "fliegende Blätter"
      If PicNo > 12 Then PicNo = 1
      BildAni = App.Path & "\data\bin\cpx"
      If PicNo < 10 Then BildAni = BildAni & "0"
      BildAni = BildAni & CStr(PicNo) & ".dat"
      If ExistsFile(BildAni) Then
        .PicAnimation.Picture = LoadPicture(BildAni)
      End If
      Debug.Print Timer
      If Timer - OldTime > 0.1 Then
        PicNo = PicNo + 1
        OldTime = Timer
      End If
    End With
    Call FileCopy("F:\CopyTest\test.exe", "F:\CopyTest\test2.exe")
  Next ii
  Unload DlgCopy
End Sub

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)
  Me.Refresh
End Sub
 
Private Sub BtnAbbrechen_Click()
  'Vorgang abbrechen
  Unload Me
End Sub