デフォルトでフォントサイズ１１にしておく
メニューに「字を小さく」「字を大きく」の二つだけ用意する
Private Sub Font_Large()
Dim org_size!, i%
　　org_size! = Text1.Fontsize
　　For i%=1 to 10
　　　　Text1.FontSize = org_size! + i%
　　　　If Text1.FontSize <> org_size! Then exit For
　　Next
End Sub