Вы можете сделать что-то подобное с помощью метода Extension.
Imports System.Runtime.CompilerServices
Module FontExtensions
<Extension()> Public Function ToSize(ByVal OriginalFont As Font, ByVal NewSize As Single) As Font
Dim NewFont As Font
NewFont = New Font(OriginalFont.FontFamily, NewSize, OriginalFont.Style)
Return NewFont
End Function
End Module
и затем назовите это так ...
SomeObject.Font = Font.ToSize(12)
Это все еще создает новый шрифт за сценой, но код вашего приложения не загроможден процессом создания.