Public Class Form1

    Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
        For a = 1 To 100
            Me.ProgressBar1.Value = a
            For b = 1 To 20000000
            Next b
        Next a
        Me.Hide()
        Form2.Show()
    End Sub
End Class