Imports System.Drawing.Drawing2D
Public Class Form1
    Dim WithEvents Pb As New PictureBox With {.Dock = DockStyle.Fill, .Parent = _
      Me}
    Dim hgrund As Bitmap = SystemIcons.Shield.ToBitmap
    Dim picList As New List(Of MyPicture)  'Bilderliste
    Dim hrList As New List(Of Rectangle)   'Handler-Rechtecke
    Dim loc As Point, rec, rec2 As Rectangle
    Dim hp As Int32 = 0, handler, movh As Boolean
    Dim cur As New List(Of Cursor)({Cursors.SizeAll, Cursors.SizeNWSE, _
      Cursors.SizeNESW, Cursors.SizeNESW, Cursors.SizeNWSE})
 
    Private Sub Form1_Load(sender As System.Object, e As EventArgs) Handles _
      MyBase.Load
        Me.ClientSize = New Size(800, 800)
        For y = 200 To 400 Step 100
            picList.Add(New MyPicture With {.Img = _
              SystemIcons.Warning.ToBitmap, .Bounds = New Rectangle(225, y, 64, _
              64)})
            picList.Add(New MyPicture With {.Img = SystemIcons.Error.ToBitmap, _
            .Bounds = New Rectangle(375, y, 64, 64)})
            picList.Add(New MyPicture With {.Img = Me.Icon.ToBitmap, .Bounds = _
            New Rectangle(525, y, 64, 64)})
        Next
        For i = 0 To picList.Count - 1
            imgloc.Add(New PointF(CSng(picList(i).Bounds.X / Pb.Width), CSng( _
              picList(i).Bounds.Y / Pb.Height)))
        Next
    End Sub

Dim imgloc As New List(Of PointF)
    Private Sub Form1_ResizeBegin(sender As Object, e As EventArgs) Handles _
      Me.ResizeBegin
        imgloc.Clear()
        For i = 0 To picList.Count - 1
            imgloc.Add(New PointF(CSng(picList(i).Bounds.X / Pb.Width), CSng( _
              picList(i).Bounds.Y / Pb.Height)))
        Next
    End Sub
 
    Private Sub Form1_Resize(sender As Object, e As EventArgs) Handles Me.Resize
        For i = 0 To imgloc.Count - 1
            picList(i).Bounds.Location = New Point(CInt(Pb.Width * imgloc( _
              i).X), CInt(Pb.Height * imgloc(i).Y))
        Next
        Pb.Invalidate()
    End Sub