The GUI Built By A Friend

Private Sub cmdBMI_Click()    Call BMI     lblBMI.Caption = BMIndex End Sub Private Sub txtHeight_Change()     BMIheight = txtHeight.Text / 12 End Sub Private Sub txtWeight_Change()     BMIweight = txtWeight.Text End Sub

txtHeight

cmdBMI

txtWeight

lblBMI