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)}
 
    Dim bmp As New Bitmap(2640, 1485)
 
 
    Private Sub frmTestPicBox_Load(sender As Object, 
        e As EventArgs) Handles MyBase.Load
 
        Me.Size = New Size(600, 400)
        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

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), 
        .BorderStyle = BorderStyle.None}
 
    Dim bmp As New Bitmap(2640, 1485)
 
 
    Private Sub frmTestPicBox_Load(sender As Object, 
        e As EventArgs) Handles MyBase.Load
 
        Me.Size = New Size(600, 400)
        Me.BackColor = Color.Yellow
        pb.BackColor = Color.Red
 
        Dim bmp_out As New Bitmap(pb.Width, pb.Height)
        Using g As Graphics = System.Drawing.Graphics.FromImage(bmp_out)
            g.DrawImage(bmp, New Rectangle(0, 0, bmp_out.Width, bmp_out.Height))
        End Using
 
        pb.Image = bmp_out
    End Sub
 
 
End Class