[سعود]

PHP كود :

Private Sub ce(ByVal a As Control)
If (TypeOf a Is TextBox) Or (TypeOf a Is Label) Then
a.BackColor = vbYellow
End If
End Sub
Private Sub Label1_Click()
ce Label1
End Sub
Private Sub Text1_Click()
ce Text1
End Sub 


---

  لقد استعجلت بالجواب فمعذة اخي الكريم .
ان تمكنت من معرفة الحل باذن الله اكتبه.
وبانتظار الاخوة.

محاولة اخرى

---

PHP كود :

Private Sub ce(ByVal a As Control, ByVal b As Boolean)
If (TypeOf a Is TextBox And b = True) Then
a.BackColor = vbYellow
Else
a.BackColor = vbWhite
End If
End Sub
Private Sub Text1_GotFocus()
ce Text1, True
End Sub
Private Sub Text1_LostFocus()
ce Text1, False
End Sub
Private Sub Text2_GotFocus()
ce Text2, True
End Sub
Private Sub Text2_LostFocus()
ce Text2, False
End Sub 


محاولة اخرى