[RESOLVED] Splash Screen

[BrailleSchool]

I have created a splash screen for my app, added a progress bar on the bottom and a timer.

Added the following code (complete) and get the following error message:
Run-time error ' 380':
Invalid property value

highlighted:

ProgressBar1.Value = ProgressBar1.Value + 1

complete code:

Private Sub Form_Load()
    Timer1.Interval = 1000
    
    With ProgressBar1
        .Max = 10
        .Value = 0
    End With
End Sub
 
Private Sub Timer1_Timer()
    ProgressBar1.Value = ProgressBar1.Value + 1
    
    If ProgressBar1.Value = ProgressBar1.Max Then
    frmTranslator.Show
    frmSplash.Hide
    End If
End Sub
 
Private Sub Form_Click()
    Unload Me
    frmTranslator.Show
End Sub
 
Private Sub Form_KeyPress(KeyAscii As Integer)
    Unload Me
    frmTranslator.Show
End Sub

Please advise.