Primo tentativo riuscito di drag drop in VB.NET

Facciamo dei passi graduali per riuscire a creare un codice decente per il drag-drop.
Ho bisogno di diverse labels che trascinate su un'altra label ne modifichino il testo con il loro proprio testo.

Ecco il form. Trascinando ognuna delle labels con scritti i nomi sulla label bianca, in questa deve apparire il nome della label trascinata.

Ecco il codice:

Public Class Form1

    
    Private Sub evento(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lblMario.MouseDown, lblPippo.MouseDown, lblCiccio.MouseDown
        sender.DoDragDrop(sender.Text, DragDropEffects.Copy)
    End Sub

    Private Sub Label1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Label1.DragDrop
        Label1.Text = e.Data.GetData(DataFormats.Text)
    End Sub

    Private Sub Label1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Label1.DragEnter
        e.Effect = DragDropEffects.Copy
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

E funziona.