Rileggendo meglio (e traducendo, sopratutto) il post, se ho capito bene lui vorrebbe scrivere e leggere i valori delle proprietà in un botto solo senza usare il metodo classico di scrivere i valori uno per volta, però nella procedura di lettura:
Dim hFile As File
Dim item As MyObject
If Not Exist(_fileName) Then Return
hFile = Open _filename For Input
item = Read #hfile As MyObject
Close #hfile
non ha scritto l'istruzione come nella procedura di scrittura. Non è che il problema nasce tutto da li?
In pratica l'oggetto non lo ha creato.
Ho provato a riscriverlo aggiungendo la linea che mancava di cui sopra, mantenendo la sua versione originale, in questa maniera:
Public Sub Form_Open()
scrivi
leggi
End
Public Sub scrivi()
Dim hFile As File
Dim item As MyObject
item = New MyObject
item.Name = "un nome qualsiasi"
hFile = Open "/home/max/fileName" For Output Create
Write #hFile, item As Object '<- qui da errore
Close #hFile
End
Public Sub leggi()
Dim hFile As File
Dim item As MyObject
item = New MyObject
If Not Exist("/home/max/fileName") Then Return
hFile = Open "/home/max/fileName" For Input
item = Read #hfile As Object
Close #hfile
Print item.Name
End
ovviamente scrivendo anche la classe MyObject, lui dice che la routine di scrittura funziona, ma invece a me da errore dove ho segnato perchè si aspetta un tipo standard invece di un oggetto. :-\