VB.net コントロールのフォントを動的に変更する方法

アプリを使っている最中に表示文字をもう少し大きくしたいと思うことがあったので

フォームを大きくしたら文字も大きくならないか調べました。できるようですが、参考２のようにちょっとややこしい（あたしには）らしい。

だったら、サイズを都度入力してもいいから大きくしたい。参考１を使えば、それならできそう。

ついでにフォントの種類も変えられるようにしました。いじくりすぎて元がわからなくなると困るので、deffontに最初の設定を入れてInputBoxのバーに表示しておくことにしました。

以下は参考のコード。コントロール（この場合はラベル1)をクリックするとフォント名、サイズを入力するインプットボックスがでます。

    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
        Const deffont = "ＭＳ Ｐゴシック,20"
        Dim defstr As String = Join({Label1.Font.Name, Label1.Font.Size}, ",")
        Dim s As String = InputBox("フォント,サイズを入力してください。", deffont, defstr)
        Label1.Font = New Font(Split(s, ",")(0), CSng(Split(s, ",")(1)),
                                   FontStyle.Regular, GraphicsUnit.Point)
    End Sub

参考１

コード上からコントロールのフォントを動的に変更する方法は？ - ActiveReports for .NET 3.0J Standard Edition - ナレッジベースの詳細 | Developer Tools〈開発支援ツール〉 - グレープシティ株式会社

参考２

Windowsフォームのコントロールサイズに合わせてフォントを自動縮小する - でぶぬる日記