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
cmdBMI
txtWeight
txtHeight
lblBMI
Previous slide
Next slide
Back to first slide
View graphic version