我想要一个用VB6.0编的加减法程序，点了控件“加法”“减法”才可以在第三个文本框中出现结果的程序代码

在窗体上放2个命令按纽，3个文本框，2个标签，如图，代码如下

Option Explicit: Dim a As Double, b As Double

Private Sub Command1_Click()

a = Val(Text1.Text)

b = Val(Text2.Text)

If Text1.Text <> "" And Text2.Text <> "" Then

Text3.Text = a + b

End If

Label1.Caption = "+"

Label2.Caption = "="

End Sub

Private Sub Command2_Click()

a = Val(Text1.Text)

b = Val(Text2.Text)

If Text1.Text <> "" And Text2.Text <> "" Then

Text3.Text = a - b

End If

Label1.Caption = "-"

Label2.Caption = "="

End Sub

Private Sub Form_Load