โปรเเกรม Cal

Private Sub Command1_Click()

X = Val(Text1.Text)

Y = Val(Text2.Text)

Z = X + Y

Label1.Caption = Z

End Sub

Private Sub Command2_Click()

X = Val(Text1.Text)

Y = Val(Text2.Text)

Z = X - Y

Label1.Caption = Z

End Sub

Private Sub Command3_Click()

X = Val(Text1.Text)

Y = Val(Text2.Text)

Z = X * Y

Label1.Caption = Z

End Sub

Private Sub Command4_Click()

X = Val(Text1.Text)

Y = Val(Text2.Text)

Z = X / Y

Label1.Caption = Z

End Sub

Private Sub Command5_Click()

Text1.Text = ""

Text2.Text = ""

Label1.Caption = ""

End Sub

Private Sub Command6_Click()

End

End Sub