[Taha Okla]

لو عندك Textbox عدد ثلاثة مثلاً :
TextBox1 -- TextBox2 -- TextBox3
التظليل سكون عند التحديد وعند المغادرة يرجع للون الأساسي ،،

كود :

   Public Sub txtBackColor(pTextBox As TextBox, pBackColor As Color)
       pTextBox.BackColor = pBackColor
   End Sub

   Private Sub TextBox1_Enter(sender As Object, e As EventArgs) Handles TextBox1.Enter, TextBox2.Enter, TextBox3.Enter
       txtBackColor(sender, Color.LightPink)
   End Sub

   Private Sub TextBox1_Leave(sender As Object, e As EventArgs) Handles TextBox1.Leave, TextBox2.Leave, TextBox3.Leave
       txtBackColor(sender, Color.White)
   End Sub