highs.bas

Bomberman Game using VB6

Attribute VB_Name = "Highs"
Public GotHighScore As Boolean
Public JustLostGame As Boolean

Public Function LoadScores(ZeForm As Form)
On Error Resume Next
z# = -1
Open App.Path + "\Highscores.dat" For Input As #1
Do Until EOF(1)
    Input #1, NowStr$
    For i = 1 To Len(NowStr$)
        X$ = Mid$(NowStr$, i, 1)
        If X$ = "