' Basic Programming
' Ch. 8 Demo Program #5
' by Mr. Minich
' Purpose - to demonstrate passing multiple parameters

Option Explicit

Private Sub cmdAdd_Click()
   ' Calls:             AddThem
   ' Called by:         none
   
   Dim UserInputA As Integer         ' user's inputted integer value
   Dim UserInputB As Single          ' user's  inputted decimal value
   
   UserInputA = Val(txtUserInputA.Text)
   UserInputB = Val(txtUserInputB.Text)
   
   Call AddThem(UserInputA, UserInputB)
End Sub

Private Sub cmdMultiply_Click()
   ' Calls:             MultiplyThem
   ' Called by:         none
   
   Dim UserInputA As Integer         ' user's inputted integer value
   Dim UserInputB As Single          ' user's  inputted decimal value
   
   UserInputA = Val(txtUserInputA.Text)
   UserInputB = Val(txtUserInputB.Text)
   
   Call MultiplyThem(UserInputA, UserInputB)
End Sub

Private Sub AddThem(Incoming1 As Integer, Incoming2 As Single)
   ' Calls:             none
   ' Called by:         cmdAdd_Click
   
   lblFinalResult = Incoming1 + Incoming2
End Sub

Private Sub MultiplyThem(Incoming1 As Integer, Incoming2 As Single)
   ' Calls:             none
   ' Called by:         cmdMultiply_Click
   
   lblFinalResult = Incoming1 * Incoming2
End Sub