Sub calc()
        H1 = H.Text
        L1 = L.Text
        C1 = C.Text
        O1 = O.Text
        PP_TMP = ((H1 + L1 + C1) /  3 )
        R10 = ( 2  * PP_TMP) - L1
        S10 = ( 2  * PP_TMP) - H1
        R20 = PP_TMP + (R10 - S10)
        S20 = PP_TMP - (R10 - S10)
        R30 = H1 +  2  * (PP_TMP - L1)
        S30 = L1 -  2  * (H1 - PP_TMP)
        res1.Text = R10
        res2.Text = R20
        res3.Text = R30
        sup1.Text = S10
        sup2.Text = S20
        sup3.Text = S30
        PP_GENERAl.Text = Format(PP_TMP, "0,0000")
    End Sub