Loading Screen | VB Proj

' Loading
Private Sub Form_Load()
Timer.Enabled = True
End Sub

Private Sub Timer_Timer()
Progress.Value = Progress.Value + 1
Title.Caption = "INITIALIZING: " & Progress.Value & "%"
If Title.Caption = "INITIALIZING: " & "100" & "%" Then
Unload Me
Main.Visible = True
End If
End Sub