看样要重新定义个Font对象，在构造函数中定义它的大小，
专业成都网站建设公司，做排名好的好网站，排在同行前面，为您带来客户和效益!创新互联建站为您提供成都网站建设，五站合一网站设计制作，服务好的网站设计公司，成都网站制作、成都做网站负责任的成都网站制作公司!
With Button1.Font
Button1.Font = New Font(.FontFamily, 34, .Style, .Unit) '参数都用原来字体参数，只有大小改成你需要的。
End With
可以利用font 设置。设置方法如下：
TextBox1.Font = New System.Drawing.Font("宋体", 10)
也可以通过字体对话框来实现 如：
Private Sub myButton_Click(sender As Object, e As EventArgs)
Dim myFontDialog As FontDialog
myFontDialog = New FontDialog()
If myFontDialog.ShowDialog() = DialogResult.OK Then
' Set the control's font.
myDateTimePicker.Font = myFontDialog.Font
End If
End Sub
1、首先，我们打开VB软件，点击菜单栏中的工具按钮。
2、然后我们点击二级菜单的选项。
3、此时，我们便可以看到选项页面。
4、接下来我们点击编辑器格式。
5、接下来我们就可以在这里设置字体大小。
6、最后，我们点击确定按钮即可保存保存更改。
这是因为你的程序的问题。你可以仔细看一下，Font是一个Interface，它怎么可以被实例化呢？？另外，个人认为如果在一种方法上实现不了的话，那就换一种方式，因为Font是一个Interface，所以在它中间定义了很多的属性，那就可以把你想谁知的属性一个个的点出来啊，
比如：
excelSheet.Label1.Font.Name="XXX"
excelSheet.Label1.Underline = True
等等，你可以自己尝试嘛，不要怕报错，只有错了才会学到东西，个人感想。