[just.coder]

لنقل محتويات الليست فيو

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            For i As Integer = 0 To ListView1.Items.Count - 1
                Dim bol As Boolean = True
                For t As Integer = 0 To Form2.ListView1.Items.Count - 1
                    If Form2.ListView1.Items.Item(t).Text = ListView1.Items.Item(i).Text Then
                        bol = False
                    End If
                Next
                If bol = True Then
                    Dim itm As New ListViewItem
                    itm.Text = ListView1.Items.Item(i).Text
                    Form2.ListView1.Items.Add(itm)
                End If
            Next
            MsgBox("تم النقل", MsgBoxStyle.Information)
        Catch ex As Exception

        End Try
      
    End Sub