[ناجي إبراهيم]

السلام عليكم...

إذا كنت تقوم بهذا الأمر عدة مرات في برنامجك فربما تفيدك الوحدة المرفقة (Class Module) باسم TSet و التي تمثل مجموعة أو فئة (التي يمكن إجراء عمليات التقاطع و الاتحاد و الطرح عليها).

1. أضف الوحدة المسماة TSet.cls (في المرفقات) إلى المشروع (يحتوي الكود على توضيحات للعمليات بالعربي).
2. الكود يكون كالتالي:

كود :

Private Sub Command1_Click()
    Dim MySet1 As New TSet
    Dim MySet2 As New TSet
    
    MySet1.SetItemsByArray Split(Text1.Text, vbCrLf)
    MySet2.SetItemsByArray Split(Text2.Text, vbCrLf)

    Text3.Text = MySet1.Subtract(MySet2).AsString(vbCrLf)
    
    Set MySet1 = Nothing
    Set MySet2 = Nothing
End Sub

نرجو الاستفادة و السلام.