Serializering

Hejsan...

Försöker få tilld et här med serialisering av ett objekt...
Har skrivit lite kod som jag tycker borde fungera... men den sparar inte objektets värden i xml filen.... Vad kan jag göra för fel?

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        'anropa serializesubben
        Me.SerializeObject("hejsan.xml")

    End Sub

    Private Sub SerializeObject(ByVal filename As String)

        Dim serializer As New XmlSerializer(GetType(Test))
        Dim t As New Test

        With t
            .setValues()
        End With

        ' Create a FileStream to write with.
        Dim writer As New FileStream(filename, FileMode.Create)
        ' Serialize the object, and close the TextWriter
        serializer.Serialize(writer, t)
        writer.Close()

    End Sub

Vore jättetacksam för hjälp med detta....

Ombjektet som jag ska spara är bara ett test objekt å ser ut så här...

Public Class Test
    Private hej As String
    Private i As Integer

    Public Sub setValues()
        hej = "bananen"
        i = 327
    End Sub

    Public Function getHej() As String
        Return hej
    End Function

    Public Function getI() As Integer
        Return i
    End Function
End Class

MVH Ciliax