[Taha Okla]

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

جرب هذا الكود ...

كود :

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) _
                           Handles TextBox1.TextChanged, TextBox2.TextChanged,
                           TextBox3.TextChanged, TextBox4.TextChanged,
                           TextBox5.TextChanged, TextBox6.TextChanged,
                           TextBox7.TextChanged, TextBox8.TextChanged,
                           TextBox9.TextChanged, TextBox10.TextChanged


   For Each tx As TextBox In (From t1 In Controls.OfType(Of TextBox)()
                               Where t1.Name = "TextBox" & (Val(sender.Name.ToString.Replace("TextBox", "")) + 10))
       tx.Text = Val(sender.text) * (3 + Val(sender.Name.ToString.Replace("TextBox", "")))
   Next
End Sub