一个VB小程序，请高手帮忙查错修改

关于VB加法运算程序：将数A敲入第一个格内（Text1)，再将数B敲入第二格内（Text2），按“等于”键，在第三个格内（Text3)得到A与B的和。
请帮忙解决以下三个问题：
1、第二个格内最多只能敲五位数（可能是属性选择错了，第二格的属性如何确定）。
2、如何运用“清除键”
3、能否将第一格x的属性复制到第二格y上，如何复制。

VB加法运算程序如下：
Dim x, y As Integer
Private Sub Command1_Click()
Text3.Text = x + y
End Sub

Private Sub Command2_Click()
Cls
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Text1_Change()
x = Text1.Text
End Sub

Private Sub Text2_Change()
y = Text2.Text
End Sub

程序的“界面图”参见第一个回答者。的问题

Dim x as long, y As long
Private Sub Command1_Click()
Text3.Text = x + y
End Sub
Private Sub Command2_Click()
text1.text=””
text2.text=””
text3.text=””
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Text1_Change()
x = val(Text1.Text)
End Sub
Private Sub Text2_Change()
y = val(Text2.Text)
End Sub