Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button2.Click
        'Set up product object.
        Dim p As New clsProduct()
        Dim x As New XmlSerializer(p.GetType)
        'Deserialize text file to a new object.
        Dim objStreamReader As New StreamReader("C:\test.xml")
        Dim p2 As New clsProduct()
        p2 = x.Deserialize(objStreamReader)
        objStreamReader.Close()
 
        'Display property values of the new product object.
        Console.WriteLine(p2.Name)
        Console.WriteLine(p2.Description)
        Console.WriteLine(CStr(p2.Qty))
        Console.ReadLine()
    End Sub

Public Class clsProduct
 
    Private mstrName As String
    Private mstrDescription As String
    Private mintQty As Integer
 
    Public Property Name() As String
        Get
            Name = mstrName
        End Get
        Set(ByVal Value As String)
            mstrName = Value
        End Set
    End Property
 
    Public Property Description() As String
        Get
            Description = mstrDescription
        End Get
        Set(ByVal Value As String)
            mstrDescription = Value
        End Set
    End Property
 
    Public Property Qty() As Integer
        Get
            Qty = mintQty
        End Get
        Set(ByVal Value As Integer)
            mintQty = Value
        End Set
    End Property
 
End Class