Public Class Form1
    Dim Btn1, Btn2 As New Button
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.Controls.AddRange(New Control() {Btn1, Btn2})
        Btn1.Font = New Font("Arial", 10, FontStyle.Bold Or FontStyle.Italic)
        Btn1.Text = "Btn1"
        Btn2.Text = "Btn2"
        Btn2.Left = 100
        Dim fc As New FontConverter
        Me.Text = fc.ConvertToString(Btn1.Font)                   'Font -> String
        Btn2.Font = CType(fc.ConvertFrom(Me.Text), Drawing.Font)  'String -> Font
    End Sub
End Class