here is my code:
Code:
Private Sub tmrHighScore_Timer()
Dim quads

For quads = 1 To i
    If playerscore < scorenum(quads) Then
        FontSize = 10
       Print scorenum(quads) & ""
    ElseIf playerscore > scorenum(quads) And overdo = True Then
        scorenum(quads) = playerscore
        FontSize = 20
       Print scorenum(quads) & ""
        overdo = False
    ElseIf overdo = False Then
        FontSize = 10
        Print scorenum(quads) & ""
    End If
Next quads


End Sub
I get no errors or anything.... What is the problem?