Questo, in effetti, lo avevo capito, però questo programma è ancora molto indietro, perciò se io riuscissi a sistemarlo, forse potrei continuare con VB .NET...

Se mi potete dare un aiuto con questi codici, vi sarei grato...

codice:
'Questo è stato tradotto
Private Sub Load_Renamed(ByRef str_Renamed As String)
		FileOpen(1, str_Renamed, OpenMode.Binary)
		FileGet(1, Map)
		FileClose(1)
End Sub
'Originale 
Private Sub Load(str As String)
Open str For Binary As #1
    Get #1, , Map
Close #1
End Sub
Poi c'è questo problema con il filesystemobject...

codice:
'Questo è stato tradotto
Dim sys As Object
		sys = CreateObject("Scripting.filesystemobject")
		Dim txt As Object
		'UPGRADE_WARNING: Couldn't resolve default property of object sys.opentextfile. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1037"'
		txt = sys.opentextfile(VB6.GetPath & "\Immagini\dat.lnd")
'Originale
Dim sys
Set sys = CreateObject("Scripting.filesystemobject")
Dim txt
Set txt = sys.opentextfile(App.Path & "\Immagini\dat.lnd")
L'ultima cosa che volevo chiedervi è questa: Come si fa a dichiarare un array nel VB .NET?
Infatti ogni volta che provo a far partire il programma mi da svariati errori, tutti sugli array (Infatti errori sul filesystemobject, ecc. non me ne da...)

Grazie ancora!