> フォントプロパティのサイズのみを残しフォントだけ変更できる

Font の Size、FontFamily、Name などは ReadOnly なので変更できません。
元のフォントをテンプレートとして、新しいフォントを作成することで代用しましょう。

Dim fnt1 As Font = Me.Font

Dim fnt2 As New Font(fnt1, 21.0F)

Dim fnt3 As New Font(fnt1, FontStyle.Bold Or FontStyle.Italic)

Dim fnt4 As New Font(fnt1.FontFamily, 18.0F, FontStyle.Regular)