Dim fname As String = "C:/temp/testdata.dat"
fos.InitializeNewInstance("java.io.FileOutputStream",Array(fname))
oos.InitializeNewInstance("java.io.ObjectOutputStream",Array(fos))
oos.RunMethod("writeObject",Array(ar))
oos.RunMethod("close",Null)
fos.RunMethod("flush",Null)
fos.RunMethod("close",Null)
fis.InitializeNewInstance("java.io.FileInputStream",Array(fname))
ois.InitializeNewInstance("java.io.ObjectInputStream",Array(fis))
Dim yy(2,3) As Double
yy = ois.RunMethod("readObject",Null)
ois.RunMethod("close",Null)
fos.RunMethod("close",Null)
For a = 0 To 1
For b = 0 To 2
Log("("&a&","&b&") "&yy(a,b))
Next
Next