怎么用command按钮实现加减运算？

如何用command按钮实现加减运算？？
有三个command按钮，分别是：
command1，command2，command3.
和一个text1.text。

在command2中过程如下：
Dim x, y, z As Integer
If x < y Then x = z
text1.text = z

如何实现
command1中的x + 1
command3中的x - 1
可以使command2中的x变化，同时输出到text1.text的数据也会自动更新？

请写出代码来，谢谢！



[解决办法]

VB code

Option ExplicitDim x As IntegerPrivate Sub Command1_Click()   x = x + 1End SubPrivate Sub Command2_Click()   Dim y As Integer, z As Integer   If x < y Then z = x   Text1.Text = zEnd SubPrivate Sub Command3_Click()  x = x - 1End Sub
[解决办法]
VB code
Private Sub Command2_Click()   Dim y As Integer   static f as boolean   if not f then       x = 3       f = true   end if   y = 5   If x < y Then   Text1.Text = "有"   Else   Text1.Text = "无"   End IfEnd Sub