Как сохранить имя и размер шрифта в файле

Dim g As Graphics = Me.CreateGraphics
        Dim fs As String = Me.Font.ToString ' записываем строковое представление шрифта (текущее)
        Me.TextBox1.Text = Me.Font.ToHfont.ToInt32 'смотрим на него
        Dim ii As New IntPtr(CInt(TextBox1.Text)) ' создаем структуру intptr из числа в текстбоксе
        Dim f As Font = Font.FromHfont(ii) ' создаем новый шрифт из этой структуры
        MsgBox(f.ToString & vbCrLf & fs) ' смотрим строковые представления старого и нового шрифтов. Отличия в единицах измерения (Units) и, как следствие - в значении размера.
        ' меняем шрифт у формы и кнопки. Я разницы не увидел
        g.DrawString("Проба пера", f, Brushes.Red, 0, 30) ' рисуем старым шрифтом
        Me.Font = f
        Me.Button1.Font = f
        ' вывод: можно сохранить значение шрифта в виде строки (ну или числа). Думаю, тут проблем нет.
        g.DrawString("Проба пера", f, Brushes.Red, 0, 0) ' рисуем новым шрифтом