# A question about varray and file

Posted by soap on August 22, 1999 at 00:15:40:

I define a 3D array (99,99,2)
And save it in a file
code:<
Dim FileHandle As Integer
Dim i As Long
For i1 = 0 To 99
For i2 = 0 To 99
For i3 = 0 To 2
msetkey(i1, i2, i3) = "map" & i1 & i2 & i3: mSetValue(i1, i2, i3) = map(i1, i2, i3)
Next i3
Next i2
Next i1
FileHandle = FreeFile
Open FileString For Output As #FileHandle
For i = 0 To UBound(SetKey)
Write #FileHandle, SetKey(i), SetValue(i)
Next
For i1 = 0 To 99
For i2 = 0 To 99
For i3 = 0 To 2
Write #FileHandle, msetkey(i1, i2, i3), mSetValue(i1, i2, i3)
Next i3
Next i2
Next i1
Close #FileHandle
>
After the program run this sub, the program isn't wrong.
But after the program is end, the vb6.0 is hang!
Why and how ?

Follow Ups: