How to drag/drop labels ,that created at run time

[Nada_ward]

How to drag/drop labels ,that created at run time

this is my code ...

Private Sub server1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles server1.Click
       
        'create new form 
        Dim ser1 As New Form
       
        Dim l1 As New Label()
       
        ser1.Location = New Point(123, 28)
        ser1.Height = 95
        ser1.Width = 206
      

            l1.AllowDrop = True
           
            l1.Name = "Lab1"
           
            l1.Text = "label1"
            l1.Location = New Point(5, 5 )
            ser1.Controls.Add(l1)

            ser1.Show()

        l1.DoDragDrop(l1, DragDropEffects.Move)
    End Sub

 Private Sub picturebox3_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles server3.DragEnter
        If (e.Data.GetDataPresent(DataFormats.Text)) Then
            ' Display the copy cursor.
            e.Effect = DragDropEffects.Copy
        Else
            ' Display the no-drop cursor.
            e.Effect = DragDropEffects.None
        End If

    End Sub

[Ramy Mahrous]

Here's a post I wrote but it's by C# you can see the idea and convert it to VB.NET http://fcihelwan.wordpress.com/2008/05/16/how-to-make-your-controls-moveable/

[Nada_ward]

I know this way
but how I can implement mouse clicking and moving to labels created at run time ???

[Ramy Mahrous]

You can search how to add handlers to created controls at runtime using VB.NET then your problem is done.
http://www.thescarms.com/dotnet/EventHandler.aspx

http://www.google.com.eg/search?rlz=1C1CHMB_enEG312EG313&sourceid=chrome&ie=UTF-8&q=add+handler+to+controls+vb.net