مساعدة في مربع النص Textbox

ستسعمل الحدثين GotFocus و LostFocus :

Private Sub Text1_GotFocus()
Text1.BackColor=vbBlack
Text1.ForeColor=vbWhite
End Sub

وبهذا عندما يحصل على التركيز فسيكون لونه أسود، وعندما يفقد التركيز يصبح أبيض هكذا:

Private Sub Text1_LostFocus()
Text1.BackColor=vbWhite
Text1.ForeColor=vbBlack
End Sub

تمام؟

وفقك الله

بارك الله فيك وشكرا وشكرا