Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ProgressBar1.Maximum = 10 ProgressBar1.Minimum = 0 ProgressBar1.Step = 5 ProgressBar1.Value = 0 Timer1.Interval = 1000 Timer1.Enabled = True End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick ProgressBar1.PerformStep() If ProgressBar1.Value = ProgressBar1.Maximum Then Form2.Show() Timer1.Stop() End If End Sub