[hamada salah90]

(04-12-21, 11:29 PM)Taha Okla كتب : وعليكم السلام  ورحمة الله وبركاته ..

هذا الكود

كود :

If Trim$(Text1.Text = "") = "" Then Exit Sub

For i = 0 To List1.ListCount - 1
   If List1.List(i) = Trim(Text1.Text) Then
       MsgBox "åÐÇ ÇáÇÓã ãæÌæÏ ãÓÈÞÇð", vbExclamation, "ÊäÈíå"
       Exit Sub
   End If
Next i
List1.AddItem Trim(Text1.Text)
Text1.Text = ""
Text1.SetFocus

شكرا  جزيلا