Dim handle As File
handle = Open miofile As Read 'o Write
Miaprocedura(handle)
Public Sub Form_Open()
Dim fl As File
fl = Open "/percorso/del/mio/file" For Read
miaprocedura(fl)
fl.Close
End
Private Procedure miaprocedura(hf As File)
Dim s As String
Read #hf, s, -256
Print s
End