XML Serialization - Help Please

[!NoItAll]

I'm writing a test application in order to figure out how to serialize a structure to XML. I can not get the following code to work for me and it's not obvious to me (I'm totally new to serialization). I've scoured google for tips, but have found no real help as many of the "examples" look very similar to mine (except the sub array in one of my structures...)

The following defines the structures I am attempting to serialize. I think I have the xml decoration correct - but the errors I'm receiving (see below) don't really give me much information.

Imports System.IO
Imports System.Xml.Serialization
 
Public Module modTestSerialization
 
    Friend ActiveRO() As ActiveROType
    Friend ActiveROCount As Integer
    Friend bNoReEntry As Boolean = False
 
    <Serializable()> Public Structure ActiveROStoriesType
        <XmlAttribute("StorySlug")> Public StorySlug As String
        <XmlAttribute("StoryStoryID")> Public StoryID As String
        <XmlElement("StoryBody")> Public StoryBody As String
    End Structure
 
    <Serializable()> Public Structure ActiveROType
        <XmlAttribute("ROid")> Public ROID As String
        <XmlAttribute("ROName")> Public ROName As String
        <XmlArrayItem("ROStories")> Public ROStories() As ActiveROStoriesType
    End Structure
 
    Friend Function UpdateROInfo(ByVal AllROs() As ActiveROType) As Boolean
        Dim fs As New FileStream("c:\mos\queue\fromNCS\ActiveROTest.xml", FileMode.Create)
        Dim xs As New XmlSerializer(GetType(ActiveROType))
        xs.Serialize(fs, AllROs)
        fs.Close()
    End Function
End Module
 

I call the code from the following (a simple button click in a form):

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Static I As Integer = -1
 
        I += 1
        ReDim Preserve ActiveRO(I)
        ReDim Preserve ActiveRO(I).ROStories(2)
        With ActiveRO(I)
            .ROID = "RO" & I.ToString
            .ROName = "MyRunningOrder-" & I.ToString
            For J As Integer = 0 To 2
                With ActiveRO(I).ROStories(J)
                    .StoryID = "StoryID" & J.ToString
                    .StorySlug = "Slug" & J.ToString
                    .StoryBody = "Now is the time for all good men to come to the aid of their country."
                End With
            Next J
        End With
 
        UpdateROInfo(ActiveRO)
 
    End Sub
End Class
 

The error I get is in the UpdateROInfo function on the xs.Serialize(fs, AllROs) line. The errors (there are two) are:

InnerException: When casting from a number, the value must be a number less than infinity.

InnerException: Make sure the source type is convertible to the destination type.

[!NoItAll]

Not sure if this will solve my problem, but I spent the weekend teaching myself some of the basics of serialization. I think there are just so many problems with the code above that deconstructing it would be arduous - so it's not surprising nobody has jumped in to rescue me.
Because I feel strongly that no thread should go un-answered in some way (an unanswered thread, in my opinion, should be deleted after 30 days - otherwise it just adds to the already poor signal to noise ratio on the net).
As a learning tool I put together a little project. I'm going to put it into the insights section for anyone who wants to learn the basics of serialization. Believe me - it's worth it. Trying to hand-roll xml by creating an XML Document Object and setting all of the various element and attribute properties manually is code that will simply collapse under its own weight. Serialization to XML is the answer. Look for the article in the insights section soon...

[!NoItAll]

Go here for my write-up on Serialization (Serialisation for everywhere else except America)!

http://bytes.com/topic/visual-basic-...et#post3549581