看样要重新定义个Font对象，在构造函数中定义它的大小，
“只有客户发展了，才有我们的生存与发展！”这是成都创新互联公司的服务宗旨！把网站当作互联网产品，产品思维更注重全局思维、需求分析和迭代思维，在网站建设中就是为了建设一个不仅审美在线，而且实用性极高的网站。创新互联对网站设计制作、网站制作、网站制作、网站开发、网页设计、网站优化、网络推广、探索永无止境。
With Button1.Font
Button1.Font = New Font(.FontFamily, 34, .Style, .Unit) '参数都用原来字体参数，只有大小改成你需要的。
End With
vb单击按钮文字变大右移的实现代码如下：
Option Explicit
Dim fnFlag As Boolean
Private Sub Command1_Click()
If fnFlag Then
Text1.FontSize = 12
Else
Text1.FontSize = 15
End If
fnFlag = Not fnFlag
End Sub
Private Sub Form_Load()
Text1.FontSize = 12
End Sub
Boolean 变量存储为 16 位（2 个字节）的数值形式，但只能是 True 或是 False。Boolean 变量的值显示为 True 或 False（在使用 Print 的候），或者#TRUE# 或 #FALSE#（在使用 Write # 的时候）。使用关键字 True 与 False 可将 Boolean 变量赋值为这两个状态中的一个。
修改VB代码的字体、大小、以及颜色可以参考下面的代码：
PrivateSubForm＿Load
Label1。字体＝＂常规＂；将字体改为常规字体
Label1。字形大小＝50”字形大小
改变字体颜色DAO为红色为前楼＝vbRed＇
Label1。标签自动改变大小与文本内容
EndSub
扩展资料：
vb参考函数
Do．．．Loop语句：当条件为True或者当条件变为True时，重复一语句块。
Empty：表示未初始化的变量的值。
Eqv运算符： 使两个表达式相等。
Erase语句：重新初始化固定数组的元素，并为动态数组重新分配存储空间。
Err对象：包含有关运行时错误的信息。
