Private Sub btnCopy_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnCopy.Click
        Dim oSource As String = tbSource.Text
        Dim oTarget As String = tbTarget.Text & "\" & _
          System.IO.Path.GetFileName(tbSource.Text)
        Dim Animation As New Animation
 
        PictureBox1.Visible = True
        PictureBox1.Refresh()
        Animation.Animation(PictureBox1, _
        New Bitmap(Application.StartupPath & "\mygif.gif"))
 
        'Bildchen anzeigen
        Try
            System.IO.File.Copy(oSource, oTarget, True)
        Catch ex As Exception
            MessageBox.Show("Fehler beim Kopieren!", "Fehler", _
              MessageBoxButtons.OK)
        End Try
        ' Nochmal die Animation aufrufen, damit sie wider gestoppt wird
        Animation.Animation(PictureBox1, Nothing)
        PictureBox1.Visible = False
    End Sub