Visual Basic

<br />
    Private Sub lstAllRole_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lstAllRole.MouseDown<br />
        lstAllRole.DoDragDrop(lstAllRole.SelectedItems, DragDropEffects.Copy)<br />
    End Sub<br />
<br />
    Private Sub lstRole_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles lstRole.DragEnter<br />
        '        If e.Data().GetDataPresent("System.Windows.Forms.ListView.ListViewItemCollection", False) Then<br />
        If e.Data().GetDataPresent(lstAllRole.SelectedItems.GetType().ToString(), False) Then<br />
            e.Effect() = DragDropEffects.Copy<br />
        Else<br />
            e.Effect() = DragDropEffects.None<br />
        End If<br />
    End Sub<br />
<br />
    Private Sub lstRole_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles lstRole.DragDrop<br />
        Dim obj As ListViewItem<br />
        Dim objCol As Object<br />
<br />
<br />
        For Each obj In e.Data.GetData(lstAllRole.SelectedItems.GetType().ToString(), False)<br />
            lstRole.Items.Add(obj)<br />
        Next<br />
    End Sub<br />