Flickering on Background/Textual Fade

[intraman]

Hey,

As part of a game I am creating an intro screen. The intro screen currently employs a fade effect through the use of a loop in which I iterate through the (three sets of) 255 colour combinations (R,G,B).

It works very well apart from that fact that the text appears to flicker badly as the fade in/out occurs. Is there anything that can be done to stop this?

A snippet of my code is as follows:

Public Function fade(fadetype As Boolean)
fColor = 0
tColor = 0

If fadetype = False Then

tColor = 0

    For fColor = 255 To 0 Step -1

        
        introscreen.BackColor = RGB(fColor, fColor, fColor)
        
        Sleep 15

    Next
End If

If fadetype = True Then

tColor = 255

    For fColor = 0 To 255 Step 1
    
        introscreen.BackColor = RGB(fColor, fColor, fColor)
        
            If tColor > 0 Then
            tColor = tColor - 1
                optext.ForeColor = RGB(tColor, tColor, tColor)
            End If
            
        Sleep 15
        
    Next
    
End If

maintm.Enabled = True

End Function

Thanks and hope you are all well.

[gavio]

Try calling the .Cls() method

Also, you should concider changing your multiple "If-End If" statements to a "If-Else If-End If" statement:

If ... Then
    '...
ElseIf ... Then
    '...
End If

... because your application is loosing precious time doing it your way. Also, your "Function" does not return anything, so it could be a Sub as well