Hello!
I'm making a fading splash screen for a software but I can't seem to make the splash screen fade in and then fade out. It only fades in, fades out a bit then stop.
Here's my code.
Thanks in advance!
Private Sub frmSplashScreen_Load(sender As Object, e As System.EventArgs) Handles Me.Load
Opacity = 0.0
SplashScreenTimer.Start()
End Sub
Private Sub SplashScreenTimer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles SplashScreenTimer.Tick
Dim Appeared As Boolean = False
If Not Appeared Then
Opacity += 0.05
If Opacity >= 1.0 Then
Appeared = True
SplashScreenTimer.Interval = 5000
End If
End If
If Appeared Then
Opacity -= 0.5
End If
End Sub