[سعود]

PHP كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        d2.Rows.Clear()
        d2.ColumnCount = 1
        d2.Columns(0).Name = "tname"
        d2.Columns(0).HeaderText = "Name"
        Dim lst As New List(Of String)
        lst.Clear()
        For a = 0 To d1.Rows.Count - 1
            Dim itm As String = d1.Rows(a).Cells(0).Value.ToString
            If gitemcount(itm) > 3 Then
                If lst.Contains(itm) = False Then
                    lst.Add(itm)
                End If
            End If
        Next
        For Each h In lst
            d2.Rows.Add(h)
        Next
    End Sub