<Serializable()> Public Class Test
    Implements System.Runtime.Serialization.ISerializable
    Public _a As String
    Public _b As String
    Public _c As String
    Public Property a() As String
        Get
            Return _a
        End Get
        Set(ByVal Value As String)
            _a = Value
        End Set
    End Property
 
    Public Property b() As String
        Get
            Return _b
        End Get
        Set(ByVal Value As String)
            _b = Value
        End Set
    End Property
 
    'Public Property c() As String
    '    Get
    '        Return _c
    '    End Get
    '    Set(ByVal Value As String)
    '        _c = Value
    '    End Set
    'End Property
    Public Sub New()
        '//
    End Sub
    Public Sub New(ByVal info As _
      System.Runtime.Serialization.SerializationInfo, ByVal context As _
      System.Runtime.Serialization.StreamingContext)
        Me.New()
        Try
            Me.a = info.GetString("a")
            Me.b = info.GetString("b")
        Catch ex As Exception
            Debug.WriteLine(ex.Message)
        End Try
    End Sub
 
    Public Sub GetObjectData(ByVal info As _
      System.Runtime.Serialization.SerializationInfo, ByVal context As _
      System.Runtime.Serialization.StreamingContext) Implements _
      System.Runtime.Serialization.ISerializable.GetObjectData
        info.AddValue("a", Me.a)
        info.AddValue("b", Me.b)
    End Sub
End Class

        Dim test As New Test
        test.a = "a"
        test.b = "b"
        Dim ser As New _
          System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
        Dim fs As IO.FileStream = IO.File.Open("C:\test.dat", _
        IO.FileMode.Create)
        ser.Serialize(fs, test)
        fs.Close()

        Dim test As Test
        Dim ser As New _
          System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
        Dim fs As IO.FileStream = IO.File.Open("C:\test.dat", IO.FileMode.Open)
        test = CType(ser.Deserialize(fs), Test)
        fs.Close()
        Debug.WriteLine(test.a)
        Debug.WriteLine(test.b)