Ciclo di for strano

[zenopagliai]

Come mai su un PC questo ciclo di for in VB6 funziona e su un' altro no ?

Su quello che non funziona c'è una memoria ram minore, ma il sorgente funziona egualmente, mentre l' exe no !


Il messaggio di errore è "Out of memory"

grazie
zeno

---------------------------------------------------------
For nI = 2 To nPalmer - 1
cPrestazione = "": cDente = "": cF = ""
If Trim(TbPalmer(nI)) <> "" Then '''''''''''''''''''''''''''''''''''''''''''''''
cPrestazione = Mid(TbPalmer(nI), 12, 4)
cDente = Mid(TbPalmer(nI), 9, 3) ' dente e posizione
cF = Mid(TbPalmer(nI), 16, 1) 'se finita o no
For nPos = 0 To 191 ' esplora tutti i texBox
If cDente = Cerca(nPos) Then ' se trova dente e posizione corrispondente a ddP
.Palm(nPos).Text = cPrestazione '' <-- mette la prestazione sul textBox
If cF = "*" Then ' se e da finire
.Palm(nPos).ForeColor = QBColor(4)
ElseIf cF = "P" Then
.Palm(nPos).ForeColor = QBColor(2) ' se finita
End If
.Palm(nPos) = cPrestazione
End If
Next
End If '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Next