Public Class Form1
	Private ControlToMove As Control
	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
		' zehl Labels, samt Eventhandler dem Flowoutpanel hinzufügen
		For a As Integer = 1 To 10
			Dim lbl As New Label
			lbl.Text = "Dies ist Label " & a.ToString
			lbl.Name = "Label" & a
			AddHandler lbl.MouseDown, AddressOf lblMousedown
			AddHandler lbl.MouseUp, AddressOf lblMouseUp
			FlowLayoutPanel1.Controls.Add(lbl)
		Next
	End Sub
	Private Sub lblMousedown(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.MouseEventArgs)
		'dieses Label soll verschoben werden
		ControlToMove = DirectCast(sender, Control)
	End Sub
	Private Sub lblMouseUp(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.MouseEventArgs)
		'ein kleiner Umweg über den screen, da e nur die Koordinaten innerhalb des 
' Controls liefert
		Dim Tpt As Point = DirectCast(sender, Label).PointToScreen(e.Location)
		'Das Control ermittel welches unter der Maus ist
		Dim c As Control = FlowLayoutPanel1.GetChildAtPoint( _
  FlowLayoutPanel1.PointToClient(Tpt), GetChildAtPointSkip.None)
		'Jetzt brauchen wir den Index des Controls, vor dem wir das Label einfügen 
' wollen
		Dim i As Integer = FlowLayoutPanel1.Controls.IndexOf(c)
		'und verschieben
		FlowLayoutPanel1.Controls.SetChildIndex(ControlToMove, i)
	End Sub
End Class

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus