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
 
    Private Sub Form1_Load(sender As System.Object, e As EventArgs) Handles _
      MyBase.Load
        Me.ClientSize = New Size(800, 800) ' Startwert = Skalierung 1
        For y = 200 To 400 Step 100
            picList.Add(New MyPicture With {.Img = _
              SystemIcons.Warning.ToBitmap, .Bounds = New Rectangle(220, y, 64, _
              64)})
            picList.Add(New MyPicture With {.Img = SystemIcons.Error.ToBitmap, _
            .Bounds = New Rectangle(370, y, 64, 64)})
            picList.Add(New MyPicture With {.Img = Me.Icon.ToBitmap, .Bounds = _
            New Rectangle(520, y, 64, 64)})
        Next
    End Sub
 
    Private Sub Pb_Paint(sender As Object, e As PaintEventArgs) Handles Pb.Paint
        e.Graphics.InterpolationMode = InterpolationMode.NearestNeighbor
        e.Graphics.DrawImage(hgrund, 0, 0, Pb.Width, Pb.Height)
        For Each pic In picList
            Dim r As Rectangle = pic.Bounds
            e.Graphics.DrawImage(pic.Img, New Rectangle(CInt(r.X * scalef.X), _
              CInt(r.Y * scalef.Y),
                                              CInt(r.Width * scalef.X), CInt( _
                                              r.Height * scalef.Y)))
        Next
    End Sub
 
    Dim scalef As New PointF(1.0, 1.0)
    Private Sub Form1_Resize(sender As Object, e As EventArgs) Handles Me.Resize
        scalef = New PointF(CSng(Me.ClientSize.Width / 800), CSng( _
          Me.ClientSize.Height / 800))
        Pb.Invalidate()
    End Sub
End Class
 
Public Class MyPicture
    Public Img As Bitmap
    Public Bounds As Rectangle
End Class