Nikolay,

You have first to serialize them.

A sample from Tom that I find nice

\\\Tom Shelton
Private Function SerializeFontObject(ByVal fnt As Font) As String
       Dim bf As New BinaryFormatter
       Dim mem As New MemoryStream
       Try
           bf.Serialize(mem, fnt)
           Return Convert.ToBase64String(mem.ToArray())
       Catch
           Return String.Empty
       Finally
           mem.Close()
       End Try
End Function
Private Function DeserializeFontObject(ByVal fnt As String) As Font
       Dim bf As New BinaryFormatter
       Dim mem As New MemoryStream(Convert.FromBase64String(fnt))
       Try
           Return DirectCast(bf.Deserialize(mem), Font)
       Finally
           If Not mem Is Nothing Then
               mem.Close()
           End If
       End Try
End Function

I hope this helps a little bit?

Cor