font属性重要问题 在线等！
一个label在代码中设置Font.Bold Font.Italic Font.Underline Font.StrikeThrough 等属性时 被告知readonly， 如何改变其属性。有什么方法？

[解决办法]
用新的font对象
Dim f As New Font(Label1.Font, FontStyle.Italic Or FontStyle.Strikeout Or FontStyle.Underline)

Label1.Font = f

*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码)

http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html
[解决办法]
Label1.Font = New Font(Label1.Font, FontStyle.Bold)
其它一样