FIT 100
© Copyright University of
Washington 1999-2000
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
