[Sniper.ps]

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

تفضل أخي الكريم

كود :

Private Sub Text1_Change()
Text1.BackColor = IIf(Text1.Text = "", vbWhite, vbRed)
End Sub

وفقك الله