[VB.NET]font属性重要问题 在线等！

<script type="text/javascript"><!--google_ad_client = "pub-8333940862668978";/* 728x90, 创建于 08-11-30 */google_ad_slot = "4485230109";google_ad_width = 728;google_ad_height = 90;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
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)
其它一样
__________________________________________________________________________
谢谢
__________________________________________________________________________