[VB6] help with flex

[meanno]

perchè non mi funge?


Private Sub Form_Load()
flex.Col = 0
flex.Row = 0
flex.Text = "Data"

flex.Col = 1
flex.Row = 0
flex.Text = "Tempo"

flex.Col = 2
flex.Row = 0
flex.Text = "SeiMinuti"

flex.Col = 3
flex.Row = 0
flex.Text = "UnMinuto"

flex.Col = 4
flex.Row = 0
flex.Text = "Picco"
End Sub

Private Sub menu0apri_Click(Index As Integer)
On Error GoTo Errore

Dim strPercorsoFile As String
cd.CancelError = True
cd.ShowOpen
strPercorsoFile = cd.FileName
Exit Sub
Errore:
If Err.Number <> cdlCancel Then
MsgBox Err.Number & " " & Err.Description
End If

End Sub

Private Sub menu0esci_Click(Index As Integer)
End
End Sub

Private Sub menu1mostra_Click(Index As Integer)
fn = FreeFile
x.id = 0
Open cd.FileName For Input As fn
Do While Not EOF(fn)
Line Input #fn, x.dati
x.id = x.id + 1
If x.id >= 17 Then
List1.AddItem x.dati
valori = x.id - 17
For i = 1 To valori
For j = 0 To 4
flex.Row = i
flex.Col = j
flex.Text = x.dati
Next j
Next i


End If
Loop


End Sub