'Sub para poder ajustar la Imagen en un Picture.
Sub AjustarImagen(El_PictureBox As PictureBox)
    El_PictureBox.ScaleMode = 3
    El_PictureBox.AutoRedraw = True
    El_PictureBox.PaintPicture El_PictureBox.Picture, 0, 0, El_PictureBox.ScaleWidth, El_PictureBox.ScaleHeight, 0, 0, _
    El_PictureBox.Picture.Width / 26.46, El_PictureBox.Picture.Height / 26.46
    El_PictureBox.Picture = El_PictureBox.Image
End Sub

Private Sub Form_Load()
    AjustarImagen Picture1
End Sub