试试这个：
Dim fnt As new font (cb1.text,15)
或者：
Dim s As string = e.Form.Controls("ComboBox1").text
Dim fnt As new font (s,15)
如果还是不行，则需要改变方法！
加好友 
发短信
Post By：2014/9/12 22:54:00 [显示全部帖子]
