Private mdX, mdY As Int32
    Private myO As Hashtable
 
    Sub MoveActive(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs)
        sender.Left += e.X - mdX
        sender.Top += e.Y - mdY
    End Sub
    Sub myMoveHandler(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs)
        If e.Button = Windows.Forms.MouseButtons.Left Then MoveActive(sender, e)
    End Sub
    Sub myDownHandler(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs)
        mdX = e.X
        mdY = e.Y
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim myLastTop As Int32 = 0
        Dim myLabel As Label
        myO = New Hashtable
        For I As Int32 = 1 To 5
            myO.Add("Label" & I, New Windows.Forms.Label())
            myLabel = CType(myO("Label" & I), Label)
            AddHandler myLabel.MouseDown, AddressOf myDownHandler
            AddHandler myLabel.MouseMove, AddressOf myMoveHandler
            myLabel.AutoSize = True
            myLabel.Top = myLastTop + myLabel.Height
            myLastTop = myLabel.Top
            myLabel.Text = "Ich bin Label " & I
            Me.Controls.Add(myLabel)
        Next
    End Sub

MfG.
Fabian Stern
-
info@smart-coding.com
http://www.smart-coding.com