https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=9489#CommentId13783
投稿者 オショウ  (社会人) 投稿日時 2009/12/9 08:11:14
少々回りくどい書き方します。

        Dim bakFont As Font

        Dim newFont As Font



        bakFont = TextBox1.Font



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



        TextBox1.Font = newFont


以上。
0