Drag drop con più controlli

Ecco come un singolo evento può essere usato per più controlli grazie alla flessibilità degli eventi in VB.NET.
Ho aggiunto un'altra label destinazione, e mi è bastato rimaneggiare un paio di eventi per ottenere lo stesso comportamento della label già presente.

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