Public Class frmTestPicBox
 
    Dim pb As New PictureBox With 
        {.Parent = Me, .SizeMode = PictureBoxSizeMode.Zoom,
        .Location = New Point(10, 10), .Size = New Drawing.Size(592, 333)}
 
    ' --> gleiche Seitenverhältnisse, aber... 
    ' Dim bmp As New Bitmap(2640, 1485)
      ' 2640:592=4.4594594... 2640:1485=1.77777...  --> mit Randstreifen
 
    Dim bmp As New Bitmap(2720, 1530)
      ' 2720:592=4.5944594... 2720:1530=1.77777...  --> o h n e Randstreifen
 
 
    Private Sub frmTestPicBox_Load 
       (sender As Object, e As EventArgs) Handles MyBase.Load
 
        Me.Size = New Size(628, 392)
        Me.BackColor = Color.Yellow
        pb.BackColor = Color.Red
 
        Using g As Graphics = Graphics.FromImage(bmp)
            g.Clear(Color.Green)
        End Using
 
        pb.Image = bmp
    End Sub
End Class