Public Class Form1
    <Serializable()> Public Structure spei
        Dim a As Integer
        Dim b As String
        Dim c As Bitmap
        Dim d As Font
    End Structure
    Dim at As spei
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        at.a = 123
        at.b = "abc"
        at.c = New Bitmap(2, 2)
        at.c.SetPixel(1, 1, Color.Black)
        at.d = New Font("Arial", 6, FontStyle.Bold)
 
        speichern()
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        laden()
 
        MsgBox(at.a & "_" & at.b & "_" & at.c.ToString & "_" & at.d.ToString)
    End Sub
    Public Sub laden()
 
    End Sub
    Public Sub speichern()
        Dim ser As New Xml.Serialization.XmlSerializer(System.Type.GetType( _
          "System.String"))
        Dim str As New Xml.XmlTextWriter("abc", System.Text.Encoding.ASCII)
        ser.Serialize(str, at)
    End Sub
End Class

__________________________________
irgendwas wird schon rauskommen^^