I found how:
Public Sub hello()
Dim bmp As New Bitmap(2000, 2000)
Dim srcRect As New RectangleF(100, 90, 300, 50)
Dim g As Graphics = Graphics.FromImage(bmp)
g.DrawImage(Image.FromFile("image.jpg"), 0, 0, srcRect, GraphicsUnit.Pixel)
PictureBox1.Image...