DIM F AS QFILESTREAM
F.Open(Command$(0)-".exe",0)
CREATE Form AS QFORM
    Caption = "Form1"
    Width = 320
    Height = 240
    Center
    CREATE Label1 AS QLABEL
        Caption = "Hoogste score:"
        Left = 8
        Top = 8
        Font.Color = &HFF0000
        Font.AddStyles(0)
        Width = 100
        Transparent = 1
    END CREATE
    CREATE Label2 AS QLABEL
        Caption = str$(F.readNum(2))
        Font.Color = &HFF0000
        Font.AddStyles(0)
        Left = -7
        Top = 8
        Width = 200
        Alignment = 1
        Transparent = 1
    END CREATE
    CREATE Label3 AS QLABEL
        Caption = str$(F.readNum(2))
        Font.Color = &H00FF00
        Left = 96
        Alignment = 1
        Top = 24
        Width = 96
        Transparent = 1
    END CREATE
    CREATE Label4 AS QLABEL
        Caption = str$(F.readNum(2))
        Alignment = 1
        Font.Color = &HFF
        Left = 96
        Top = 40
        Width = 96
        Transparent = 1
    END CREATE
END CREATE
DIM Label(4 TO 10) AS QLABEL
FOR I = 4 TO 10
Label(I).Caption = str$(F.readNum(2))
Label(I).Alignment = 1
Label(I).Left = 96
Label(I).Top = I * 17 - 13
Label(I).Width = 96
Label(I).Parent = Form
NEXT I

'Insert your initialization code here

Form.ShowModal