Salve, codesto problema.
Da form carico un file .dat in modalità Random. e su una listbox mi carica il nome di ogni elemento.
Fin qui tutto ok. Ora però selezionado un elemento nella lista dovrei copiare nelle varie textbox i relativi dati. ma non si realizza il risulato vi copio qui il codice! ^^

FORM
Private Sub Form_Load()
Const n = 1000000
Dim viad(0 To n), cpd(0 To n), cd(0 To n), pd(0 To n), nzd(0 To n), pid(0 To n), cf(0 To n), cld(0 To n), td(0 To n), fd(0 To n), ed(0 To n) As String
Dim p As Integer
Lunghezzarec = LenB(Ditte)
Dim i As Integer
FileNum = FreeFile
Open "C:/Data/Imprese.dat" For Random As FileNum Len = Lunghezzarec
Ultimorec = LOF(FileNum)
TxtID.Text = CStr(Ultimorec + 1)
i = 0
Do While Not EOF(FileNum)
i = i + 1
Get #FileNum, i, Ditte
With Ditte
List1.AddItem .Nomeditta
viad(i - 1) = .Viaditta
cpd(i - 1) = .Capditta
cd(i - 1) = .Cittaditta
pd(i - 1) = .Provinciaditta
nzd(i - 1) = .Nazioneditta
pid(i - 1) = .Pivaditta
cf(i - 1) = .Cfiscaleditta
cld(i - 1) = .Cellulareditta
td(i - 1) = .Telefonoditta
fd(i - 1) = .Faxditta
ed(i - 1) = .Noteditta
End With
Loop
End Sub

Private Sub Selfile_Click()
Dim Z As Integer
If ActiveControl = List1 Then
TxtDitta.Text = List1.Text
If List1.ListIndex > -1 Then
TxtAddDitta.Text = viad(List1.ListIndex)
TxtCapDitta.Text = cpd(List1.ListIndex)
TxtCittaDitta.Text = cd(List1.ListIndex)
TxtProvDitta.Text = pd(List1.ListIndex)
TxtNazDitta.Text = nd(List1.ListIndex)
TxtTelDitta.Text = pid(List1.ListIndex)
TxtCodF.Text = cf(List1.ListIndex)
TxtCelDitta.Text = cld(List1.ListIndex)
TxtTelDitta.Text = td(List1.ListIndex)
TxtFaxDitta.Text = fd(List1.ListIndex)
TxtEmailDitta.Text = ed(List1.ListIndex)
End If
End If
End Sub

MODULO

Type Impresa
ID As Integer
Nomeditta As String * 50
Viaditta As String * 50
Capditta As String * 5
Cittaditta As String * 30
Provinciaditta As String * 3
Nazioneditta As String * 3
Pivaditta As String * 11
Cfiscaleditta As String * 16
Cellulareditta As String * 18
Telefonoditta As String * 18
Faxditta As String * 18
Emailditta As String * 25
Noteditta As String * 250
End Type

Public Ditte As Impresa
Public Posizione As Long
Public Ultimorec As Long
Public FileNum As Integer
Public Lunghezzarec As Integer

Grazie!