โปรแกรม cal

Private Sub Command3_Click()
x = Val(Text.Text)
y = Val(Text1.Txet)
z = x + y
Labal.Caption = z
End Sub

Private Sub Command4_Click()
x = Val(Text.Text)
y = Val(Text1.Txet)
z = x - y
Labal.Caption = z
End Sub

Private Sub Command5_Click()
x = Val(Text.Text)
y = Val(Text1.Txet)
z = x * y
Labal.Caption = z
End Sub

Private Sub Command6_Click()
x = Val(Text.Text)
y = Val(Text1.Txet)
z = x / y
Labal.Caption = z
End Sub

Private Sub C_Click()
Text.Text = ""
Text1.Text = ""
Label1.Caption
End Sub

Private Sub Form_Load()
End
End Sub