Body Mass Index Program
Private Sub BMI(bodyMass As Double, weightLBS As Double, heightIN As Double)
bodyMass = 4.89 * weightLBS / (heightIN/12) ^ 2
Private Sub cmdBMI_Click()
Call BMI(BMIndex, BMIweight,BMIheight)
Private Sub txtHeight_Change()
BMIheight = txtHeight.Text / 12
Private Sub txtWeight_Change()
BMIweight = txtWeight.Text