Code:

Public strIme As String

Code:

Private Sub cmdGetText_Click()
strIme = txtIme.Text
End Sub

Code:

Private Sub Form_Unload(Cancel As Integer) 'Unload Forme1
Form2.Label1.Caption = txtIme.Text
End Sub

Code:

Private Type Rezultat
        ime as string
        brojpoena as integer
End Type
const dl = 9 ' duzina liste
Dim TopLista(dl) as rezultat

' Kad ti dodje taj kraj igre onda pozoves sub ProveriRezultat sa parametrima ime igraca, brojpoena

' Kad izlazis iz igre pozoves sub SnimiRezultat

' Na form_load pozoves sub Ucitaj rezultat

public sub ProveriRezultat(byval ime as string, byval brojpoena as integer)
dim t as integer
dim t2 as integer
for t = 0 to dl 
        if brojpoena > TopLista(t).brojpoena then
                For t2 = dl To t + 1 Step -1
                        TopLista(t2).ime = TopLista(t2 - 1).ime
                        TopLista(t2).brojPoena = TopLista(t2 - 1).brojPoena
                Next t2
                toplista(t).ime = ime
                toplista(t).brojpoena = brojpoena
                exit sub
        end if
next t
end sub

Public Sub SnimiRezultat()
dim t as integer
dim ff as integer
ff = freefile()
open "rezultat.dat" for output as #ff
        for t = 0 to dl
                print #ff, toplista(t).ime
                print #ff, toplista(t).brojpoena
        next t
close #ff
End Sub

Public Sub UcitajRezultat()
on error resume next
dim t as integer
dim ff as integer
ff = freefile()
open "rezultat.dat" for input as #ff
        for t = 0 to dl
                input #ff, TopLista(t).ime
                input #ff, TopLista(t).brojpoena
        next t
close #ff
End Sub

Code:

Select razultat from Tabela where igrac = Text1.Text order by rezultat desc