How to make a loading screen for your VB application

How to make a loading screen for your program.It's very very easy.

Code:
Timer1 Code
---------------------------------------
ProgressBar1.Increment(1) If ProgressBar1.Value = ProgressBar1.Maximum Then Me.Hide() Form2.Show() Timer1.Stop() End If


Form1 Code
---------------------------------------
Timer1.Start