Imports System.ComponentModel
 
Public Class Form1
    Private WithEvents bgw As BackgroundWorker
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        bgw = New BackgroundWorker
        ProgressBar1.Style = ProgressBarStyle.Marquee
        bgw.RunWorkerAsync()
    End Sub
 
    Private Sub bgw_DoWork(ByVal sender As Object, ByVal e As DoWorkEventArgs) _
      Handles bgw.DoWork
        My.Computer.FileSystem.CopyFile(TextBox1.Text, TextBox2.Text, True)
    End Sub
 
    Private Sub bgw_RunWorkerCompleted(ByVal sender As Object, ByVal e As _
      RunWorkerCompletedEventArgs) Handles bgw.RunWorkerCompleted
        ProgressBar1.Style = ProgressBarStyle.Blocks
    End Sub
End Class