TextBoxのFontの大きさ

こんにちは。
TextBoxのFontの大きさを1あげたくて、次のように書きました。

Private Sub Button1_Click(・・・・・

   TextBox1.Font.Size += 1

End Sub

しかし、Sizeの値はReadOnlyです。と出て、できません。
このためにはTextBox1.Font=New Font(・・・)
とやればいいのでしょうが、その方法でやると、Size以外の
値も変わってしまい、いろいろ諸問題が発生しそうです。
どうするのが一番良い考えなのか、ご教授願います。

少々回りくどい書き方します。

        Dim bakFont As Font

        Dim newFont As Font



        bakFont = TextBox1.Font



        newFont = New Font(bakFont.FontFamily, bakFont.Size + 1)



        TextBox1.Font = newFont

以上。