[سامي محمد]

وعليكم السلام ورحمة الله

اضرب القيمة * 100 تقسيم مجوع العدد


-----
وهذا مثال للتتبين لك الصورة
ضع Textbox عدد 4 و Label عدد 4 وتركها بتسميتها الافتراضية
اجعل كل ليبل يقابل تكست بكس Textbox1 يقابلة Label1
وضع هذا الكود
 

كود :

 Dim I As Integer = Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text) + Val(TextBox4.Text)
        For x As Integer = 1 To 4
            Controls("Label" & x).Text = Controls("TextBox" & x).Text * 100.0 / I
        Next