Label4.Text = NumberFormat2(Emaciated,0,2,2, False)
Label5.Text = NumberFormat2(Thin, 0 ,2,2,False)
Label8.Text = NumberFormat2(Average, 0 ,2,2,False)
Label9.Text = NumberFormat2(Heavy, 0 ,2,2,False)
Label10.Text = NumberFormat2(Fat, 0 ,2,2,False)
Emaciated = Emaciated + 1
edittext1.Text = Emaciated
Label4.Text = ((Emaciated) /(Thin + Average + Heavy + Fat + Emaciated)) * 100
Label5.Text = ((Thin) /(Thin + Average + Heavy + Fat + Emaciated)) * 100
Label8.Text = ((Average) /(Thin + Average + Heavy + Fat + Emaciated)) * 100
Label9.Text = ((Heavy) /(Thin + Average + Heavy + Fat + Emaciated)) * 100
Label10.Text = ((Fat) /(Thin + Average + Heavy + Fat + Emaciated)) * 100