vb.net中RichTextBox调整字体大小

vb.net的资料太少，查阅RichTextBox调整字体大小的方法没找到，看了几篇C#的介绍，有的写的好复杂，其实并不是写得复杂就是好方法，我在一篇短文中找到解决方法：

'缩小字号
        Dim fonOld, fonNew As Font
        fonOld = rtbMain.Font
        Try
            fonNew = New Font(fonOld.FontFamily, fonOld.Size - 1, fonOld.Style)
            rtbMain.Font = fonNew
        Catch ex As Exception

        End Try
'增大字号
        Dim fonOld, fonNew As Font
        fonOld = rtbMain.Font
        Try
            fonNew = New Font(fonOld.FontFamily, fonOld.Size + 1, fonOld.Style)
            rtbMain.Font = fonNew
        Catch ex As Exception

        End Try

如果修改选中部分的字号大小，将.Font改为.SelectionFont即可。