
Alıntı:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Start()
ProgressBar1.Value = "0"
ProgressBar1.Minimum = "1"
ProgressBar1.Maximum = "100"
Timer1.Interval = "5"
My.Computer.FileSystem.CopyDirectory("E

End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If ProgressBar1.Value < ProgressBar1.Maximum Then
ProgressBar1.Value += 1
End Sub
__________________