如何修改字体的大小!

由于字体对象Font,所有的属性都是只读,如需修改一个字体的大小,就需要产生的一个新的实体,下面这个方法用于完全复制字体的属性,并设置新的大小!

     Public Shared Function ChangeFontSize(ByVal font As System.Drawing.Font, _
                                            ByVal newSize As Single) As System.Drawing.Font
            If Not font Is Nothing Then
                If Not font.Size = newSize Then
                    font = New System.Drawing.Font(font.Name, _
                                            newSize, font.Style, _
                                            font.Unit, font.GdiCharSet, _
                                            font.GdiVerticalFont)
                End If
            End If
            Return font
        End Function