Private Sub PictureBox1_Paint(sender As Object, _
    e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
 
    Using smat As Drawing2D.Matrix = ScaleMatrix _
     (10, 90, 10, 90, _
     0, PictureBox1.Image.Width, 0, PictureBox1.Image.Height),
     redbrush As New Drawing.SolidBrush(Drawing.Color.Red)
 
         e.Graphics.Clear(Color.White)  'Arbeitsfläche löschen
         e.Graphics.Transform = smat    'Trafo-Matrix zuweisen
 
         'Einige Punkte (=Rectangle) re-skaliert zeichnen ... 
         For i As Integer = 10 To 100 Step 10
            e.Graphics.FillRectangle(redbrush, i - 2, i - 2, 5, 5)
         Next i
    End Using
 
End Sub