Private mStartPoint As Point
    Private mNonDragTypes() As Type = New Type() {GetType(TextBox)}
 
    Private Sub Item_PreviewMouseLeftButtonDown(ByVal sender As System.Object, _
      ByVal e As System.Windows.Input.MouseButtonEventArgs)
        mStartPoint = e.GetPosition(Me)
        Dim lvi As ListViewItem = TryCast(sender, ListViewItem)
        If lvi IsNot Nothing Then
            Dim htr As HitTestResult = VisualTreeHelper.HitTest(lvi, _
              e.GetPosition(lvi))
            Dim dObj As DependencyObject = htr.VisualHit
            While dObj IsNot Nothing AndAlso Not mNonDragTypes.Contains( _
              dObj.GetType)
                dObj = VisualTreeHelper.GetParent(dObj)
            End While
            If dObj Is Nothing OrElse Not mNonDragTypes.Contains(dObj.GetType) _
              Then
                AddHandler lvi.MouseMove, AddressOf Me.Item_MouseMove
            End If
        End If
    End Sub
 
    Private Sub Item_MouseMove(ByVal sender As System.Object, ByVal e As _
      System.Windows.Input.MouseEventArgs)
        If e.LeftButton = MouseButtonState.Pressed Then
            Dim actualPoint As Point = e.GetPosition(Me)
            If Math.Abs(mStartPoint.X - actualPoint.X) > _
              SystemParameters.MinimumHorizontalDragDistance OrElse Math.Abs( _
              mStartPoint.Y - actualPoint.Y) > _
              SystemParameters.MinimumVerticalDragDistance Then
                Dim lvi As ListViewItem = TryCast(sender, ListViewItem)
                If lvi IsNot Nothing Then
                    Dim obj As New DataObject("lvi", lvi.DataContext)
                    DragDrop.DoDragDrop(Me, obj, DragDropEffects.All)
                    RemoveHandler lvi.MouseMove, AddressOf Me.Item_MouseMove
                End If
            End If
        End If
    End Sub
 
    Private Sub ListBox_Drop(ByVal sender As Object, ByVal e As DragEventArgs) _
      Handles ListBox1.Drop
        Dim obj As Object = e.Data.GetData("lvi")
        If obj IsNot Nothing Then ListBox1.Items.Add(obj)
    End Sub

            <ListView.ItemContainerStyle>
                <Style TargetType="{x:Type ListViewItem}">
                    <EventSetter Event="PreviewMouseLeftButtonDown" 
                     Handler="Item_PreviewMouseLeftButtonDown"></EventSetter>
                </Style>
            </ListView.ItemContainerStyle>