VB编程的问题，高手帮我

窗体上有三个命令按钮，command1,command2,command3和一个text1
代码如下：

Dim ys As Single
Private Sub Command1_Click()
Text1.FontSize = Text1.FontSize + (Int(Rnd * 3 + 1))
Command1.Enabled = False
Command2.Enabled = True
End Sub

Private Sub Command2_Click()
Text1.FontSize = Text1.FontSize - (Int(Rnd * 3 + 1))
Command2.Enabled = False
Command1.Enabled = True
End Sub

Private Sub Command3_Click()
Command1.Enabled = True
Command2.Enabled = True
Text1.FontSize = ys
End Sub

Private Sub Form_Load()
ys = Text1.FontSize
Command1.Caption = "放大"
Command2.Caption = "缩小"
Command3.Caption = "还原"
End Sub

dim ss
ss=text1.fontsize '记录当前大小
大:
text1.fontsize=ss*int(rnd*3+1)
小:
text1.fontsize=ss/int(rnd*3+1)
还原:text1.fontsize=ss

放大和缩小只是一次操作,不需要关闭其他按钮