I wanted to add a loading screen to my program.
My code is
Private Sub Timer1_Timer() Dim x As Integer x = 1 If Me.ProgressBar1 >= 10 Or x >= 10 Then Unload Me MDIForm1.Show Timer1.Enabled = False Else x = x + 1 x = Me.ProgressBar1 End If End Sub
It doesn't work. Whats wrong with my code?