[rmnr]

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   Using dlgOpen As New OpenFileDialog
       If dlgOpen.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
           txtFile.Text = dlgOpen.FileName
           ProgressBar1.Value = 0
           Timer1.Start()
       End If
   End Using
End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
   Static i = 0
   ProgressBar1.Increment(ProgressBar1.Maximum / 10)
   If i = 11 Then
       Timer1.Stop()
       i = 0
       MsgBox("Timer1.Stop")
   End If
   i += 1
End Sub