在拖动vb.net时显示拖动的项

Private Sub ListBox1_DragEnter(sender As Object, e As DragEventArgs) Handles ListBox1.DragEnter
    If e.Data.GetDataPresent(DataFormats.Text) Then
        e.Effect = DragDropEffects.Move
    Else
        e.Effect = DragDropEffects.None
    End If
End Sub

Private Sub ListBox1_DragOver(sender As Object, e As DragEventArgs) Handles ListBox1.DragOver
    Dim mousePosition As Point = ListBox1.PointToClient(New Point(e.X, e.Y))
    Dim index As Integer = ListBox1.IndexFromPoint(mousePosition)
    
    If index <> ListBox.NoMatches Then
        ListBox1.SelectedIndex = index
    End If
End Sub

Private Sub ListBox1_DragDrop(sender As Object, e As DragEventArgs) Handles ListBox1.DragDrop
    If e.Data.GetDataPresent(DataFormats.Text) Then
        Dim draggedItem As String = e.Data.GetData(DataFormats.Text)
        ListBox1.Items.Add(draggedItem)
    End If
End Sub

Private Sub ListBox2_MouseDown(sender As Object, e As MouseEventArgs) Handles ListBox2.MouseDown
    If ListBox2.SelectedItem IsNot Nothing Then
        ListBox2.DoDragDrop(ListBox2.SelectedItem.ToString(), DragDropEffects.Move)
    End If
End Sub