كود :
Public Class Form2
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If ProgressBar1.Value < ProgressBar1.Maximum Then
ProgressBar1.Value += 1
Else
Timer1.Stop()
Timer2.Stop()
Form3.Show()
Me.Close()
End If
End Sub