Public Class Form1
 
    Private Pos As Point
    Private L(7) As Label
 
    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles PictureBox1.Click
        Binden(PictureBox1)
    End Sub
 
    Private Sub Form1_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.Click
 
        For Each C As Control In Panel1.Controls
            If TypeOf C Is System.Windows.Forms.PictureBox Then
                Lösen(C)
            End If
        Next
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
        PictureBox1.Image = Image.FromFile("C:\DeinBild.jpg")
    End Sub
 
    Private Sub L_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs)
        Pos = New Point(e.X, e.Y)
    End Sub
 
    Private Sub L_MouseMove(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs)
        Dim Index As Integer
        Dim N As Integer
        Dim itemMoved As Label = CType(sender, Label)
        Dim Width As Integer
        Dim Height As Integer
        Dim Top As Integer
        Dim Left As Integer
 
        For N = LBound(L) To UBound(L)
            If L(N) Is itemMoved Then
                Index = N
                Exit For
            End If
        Next
 
        If e.Button = Windows.Forms.MouseButtons.Left Then
 
            Select Case Index
                Case 0
                    Panel1.Location = New Point(Panel1.Left + (e.X - Pos.X), _
                      Panel1.Top + (e.Y - Pos.Y))
                Case 1
                    Top = Panel1.Top + (e.Y - Pos.Y)
                    Panel1.Top = Top
                    Height = Panel1.Height - (e.Y - Pos.Y)
                    Panel1.Height = Height
 
                Case 2
                    Top = Panel1.Top + (e.Y - Pos.Y)
                    Panel1.Top = Top
                    Height = Panel1.Height - (e.Y - Pos.Y)
                    Panel1.Height = Height
                    Width = Panel1.Width + (e.X - Pos.X)
                    Panel1.Width = Width
 
                Case 3
                    Width = Panel1.Width + (e.X - Pos.X)
                    Panel1.Width = Width
 
                Case 4
                    Width = Panel1.Width + (e.X - Pos.X)
                    Panel1.Width = Width
                    Height = Panel1.Height + (e.Y - Pos.Y)
                    Panel1.Height = Height
 
                Case 5
                    Height = Panel1.Height + (e.Y - Pos.Y)
                    Panel1.Height = Height
 
                Case 6
                    Height = Panel1.Height + (e.Y - Pos.Y)
                    Panel1.Height = Height
                    Left = Panel1.Left + (e.X - Pos.X)
                    Panel1.Left = Left
                    Width = Panel1.Width - (e.X - Pos.X)
                    Panel1.Width = Width
 
                Case 7
                    Left = Panel1.Left + (e.X - Pos.X)
                    Panel1.Left = Left
                    Width = Panel1.Width - (e.X - Pos.X)
                    Panel1.Width = Width
 
            End Select
 
            Panel1.Refresh()
        End If
 
    End Sub