Drag and drop hjælp

Hej udviklere!

Jeg sidder her og er ved at lave en applikation, hvor jeg skal bruge noget drag and drop. Har så fået researchet mig frem til at følgende skulle virke

 Public Class Form1
 
     Private Sub Label_mouseDown(Sednr As Object, e As EventArgs) Handles Label1.MouseDown, Label2.MouseDown, Label3.MouseDown
 
         Dim Lab As Label
         Lab = CType(Sender, Label)
 
         Lab.DoDragDrop(Lab, DragDropEffects.Copy)
     End Sub
 
     Private Sub ListView1_DragEnter(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles ListView1.DragEnter
 
         Dim Lab As Label
         Lab = e.Data.GetData(GetType(Label))
 
         ListView1.Items.Add(Lab.Text)
 
 
     End Sub
 End Class

Men, der er en fejl i linjen " Lab = CType(Sender, Label)", under Sender.

Er der nogen der kan hjælpe?

På forhånd tak, og gud jul herfra!