Dim fOld As Font = Me.Font Me.Font = New Font(コンストラクタ引数) If fOld IsNot Nothing Then fOld.Dispose() End If