Visual Basic 6 - Singole righe di un file txt in diverse textbox

line input. quello che pensavo io.
ora ti imposto un po di codice.

et voila`
non credo di avere mai scritto nulla di piu semplificato.

Private Sub Command1_Click()
Dim a As String
Dim filepath As String
filepath = "C:\percorso\file.txt"
Open filepath For Input As #1
Line Input #1, a
Text1.Text = a
Line Input #1, a
Text2.Text = a
Line Input #1, a
Text3.Text = a
Line Input #1, a
Text4.Text = a
Close #1
End Sub

GRAZIE 10000000 !!!!!!! FUNZIONA ALLA GRANDE. DAVVERO GRAZIE A TUTTI !! XO SCUSATE LA MIA IGNORANZA MA NON SI POTREBBE FARE UNA SPECIE DI MODIFICA AL SORGENTE IN MODO CHE IL FILE SI PRESENTI COSI:

testo1:ciao
testo2:mamma
...
...
e il programma visualizzi solo cio ke viene dopo i due punti..questi ultimi ovviamente esclusi !! Cioe visualizzare nel textbox1 ciao e nel textbox2 mamma...ecc..ecc..

XO SENZA PROBLEMI..NON VI SCERVELLATE PIU DI TANTO..QUELLO VA BENE XO SE SI PUO ILLUMINATEMI!!

oppure non si potrebbe fare in modo che venga letto una riga scelta da me....cioe voglio ke nel textbox1 venga visualizzata la riga 7...e nel textbox2 la riga 13....si puo ???? SCUSATE ANKORA X LA MIA INSISTENZA

si che si puo` ma dovresti pensarci un po su. non e` difficilissimo il codice per fare cio`

t prego dammi una mano..ho trovato una cosa xo non funziona x nulla...ho cercato dei codici in internet ma non ho trovato nulla che faceva al caso mio...saresti cosi gentile di dirmi come e farmelo capire...

mi vergognerei a presentarlo in giro ma piu semplice di cosi si muore.

Private Sub Command1_Click()
Dim a As String
Dim filepath As String, linea As Integer, lineadamettereintext1 As Integer, lineadamettereintext2 As Integer, lineadamettereintext3 As Integer, lineadamettereintext4 As Integer
lineadamettereintext1 = 1
lineadamettereintext2 = 2
lineadamettereintext3 = 5
lineadamettereintext4 = 9
Text1.Text = "Idiota inserisi almeno un numero di riga che esista nel File!"
Text2.Text = "Idiota inserisi almeno un numero di riga che esista nel File!"
Text3.Text = "Idiota inserisi almeno un numero di riga che esista nel File!"
Text4.Text = "Idiota inserisi almeno un numero di riga che esista nel File!"
filepath = "C:\Percorso\File.txt"
Open filepath For Input As #1
Do Until EOF(1)
Line Input #1, a
linea = linea + 1
If linea = lineadamettereintext1 Then
Text1.Text = a
End If
If linea = lineadamettereintext2 Then
Text2.Text = a
End If
If linea = lineadamettereintext3 Then
Text3.Text = a
End If
If linea = lineadamettereintext4 Then
Text4.Text = a
End If
Loop
End Sub

Ottimo questo script...complimenti!!!
E per curiosità ci sarebbe la possibilità di fargli leggere solo numeri e virgole delle singole righe del file .txt???