vb中怎么使text1字体变大缩小还原，用三个command按钮

Private Sub Command1_Click()
Text1.FontSize = Text1.FontSize + 1
End Sub

Private Sub Command2_Click()
Text1.FontSize = Text1.FontSize - 1
End Sub

Private Sub Command3_Click()
Text1.FontSize = 9
End Sub本回答被提问者和网友采纳

可以设置一个全局变量a：Dim a As Integer,把窗体运行时的字体赋给a：Private Sub Form_Load() a =（对象名）.FontSize End Sub 然后就可以在放大缩小之后令fontsize=a使得字号变成原始字号了。

这么简单的，百度一大堆