Dim nWidth, nHeight As Integer
        nHeight = 200
        nWidth = 200
        img = New Bitmap("Dibujo1.bmp")
        red = New Pen(Color.Red, 8)
        bm = New Bitmap(img, nWidth, nHeight)
        lienzo = Graphics.FromImage(bm)
        lienzo.DrawRectangle(red, 0, 0, nWidth, nHeight)
        lienzo.DrawString("HOLA", drawFont, Brushes.White, 50, 50)
        PB.Image = bm '//show the bitmap in a picture box control
        bm.Save("C:/temp/test.jpg") 

Dim bmpdest As Bitmap
        Dim lienzo As Graphics
        Dim x, y As Integer
        Dim rect, rect1 As Rectangle
        bmpdest = PictureBox1.Image
        lienzo = Graphics.FromImage(bmpdest)
        x = bmpdest.Width
        y = bmpdest.Height
        rect = New Rectangle(0, 0, x, y)
        rect1 = New Rectangle(0, 370, 3500, 1800)

        lienzo.DrawImage(PictureBox1.Image, rect, rect1, GraphicsUnit.Pixel)
        PictureBox2.Image = bmpdest