29-04-13, 11:42 PM
تدلل اخي الغالي
كود :
Dim num As Integer
num = Val(Text1.Text) / 100 * Val(Text1.Text) / 100
Text3.Text = Val(Text2.Text) / num
