Private Sub Command1_Click()

        Label1 = Val(Text1) + Val(Text2)

End Sub

Private Sub Command2_Click()

        Label1 = Val(Text1) - Val(Text2)

End Sub

Private Sub Command3_Click()

        Label1 = Val(Text1) * Val(Text2)

End Sub

Private Sub Command4_Click()

        Label1 = Val(Text1) / Val(Text2)

End Sub

Back to vb6 exercises