<Serializable()> Friend Class clsTileset
 
    Friend Sub Tileset_laden(ByVal Tilesetname As String) 
 
        Dim BinaryFormatter As _
          Runtime.Serialization.Formatters.Binary.BinaryFormatter
        Dim FS As New IO.FileStream(Application.StartupPath & "\Tilesets\" & _
        Tilesetname & ".PTS", IO.FileMode.Open)
        Dim Tileset As clsTileset
 
        BinaryFormatter = New _
          Runtime.Serialization.Formatters.Binary.BinaryFormatter
        [u]Me = CType(BinaryFormatter.Deserialize(FS), clsTileset)
        FS.Close()
        BinaryFormatter = Nothing
    End Sub
 
End Class