Ciao a Tutti
mi potreste aiutare nell'allineare delle stringhe in una lista
grazie in anticipo

Questo è il codice :

Private Sub cmdvisualizza_Click()
frmmostra.lstfilm.Clear
i = 0
Open archivio For Random Access Read As #1 Len = LenB(mieidvd)
Do
a = 0
b = 0
frase = ""
i = i + 1
Get #1, i, mieidvd
If (Not mieidvd.cancellato) Then
If txtrecord.Text = 0 Then
MsgBox ("Nessun record ancora caricato."), vbCritical, "Mostra record"
Exit Sub
Else
a = 30 - (Len(Trim(mieidvd.titolo)) + Len(Trim(mieidvd.anno)))
frase = Trim(mieidvd.titolo) & Space(a) & Trim(mieidvd.anno)
frmmostra.lstfilm.AddItem frase
End If
End If
Loop Until EOF(1)
Me.Hide
frmmostra.Show
Close #1
End Sub

Questo è tutto il progetto http://naki.helloweb.eu/Lista DVD.rar