Ci sono riuscito da solo ora i miei problemi sono altri 2. Questo é il codice :

codice:
Private Sub cmd_aggiungi_Click()

txt_posizione.SetFocus
i = txt_posizione.Text
Nomi(i) = txt_caselle_ins.Text
List1.AddItem Nomi(i), i - 1
voti(i) = txt_voti.Text
List2.AddItem voti(i), i - 1

i = i + 1
txt_posizione.Text = i
txt_caselle_ins = ""
txt_voti = ""

If (i = 6) Then
    msg = MsgBox("Vettore pieno!", vbCritical, "Vettore pieno!")
    Exit Sub
End If

End Sub


Private Sub cmd_ordina_Click()

Dim n As Integer
Dim j As Integer

n = i
j = n - 1
i = 0
For i = 1 To n - 1
    For j = n To 2 Step -1
        If voti(j) < voti(i) Then
            temp = voti(i)
            voti(i) = voti(j)
            voti(j) = temp
            List2.RemoveItem voti(i)
            List2.AddItem temp
        End If
    Next j
Next i

End Sub
Mi potreste dire come posso fare in modo che quando ordino i voti vengano ordinati anche i nomi in base ad essi ?? Cioé, mettiamo che Marco ha preso 5 e Mario ha preso 2 e li inserisco in questo ordine.
Facendo ordina il mio programma ordina solo i nomi, e risulta quindi poi che Mario ha preso 5 e Marco 2...come lo modifico ?
E un'ultima cosa, io ho fatto in modo che nella textbox txt_posizione.Text si veda l'indice i, e quindi a che punto dell'elenco siamo (inserisci il primo nome e voto, il 2, ecc), solo che il primo lo devo mettere io...c'é un sistema per fare in modo che già dall'inizio in quella casella venga scritto 1 (automaticamente), a cui sommare ogni volta 1 ?

Spero di essere stato chiaro, non so se dovevo mettere una spiegazione della form o se si capisce... ditemi
grazie mille
ciao !