Using bmp_in As New Bitmap("C:\downloads\test.jpg"), _
            bmp_out As New Bitmap(bmp_in.Width * 2, bmp_in.Height * 2, _
                                  Imaging.PixelFormat.Format24bppRgb),
            gr As Graphics = Graphics.FromImage(bmp_out)
 
            bmp_out.SetResolution(300, 300)
 
            gr.DrawImage(bmp_in, 0, 0, bmp_in.Width * 2, bmp_in.Height * 2)
 
            Clipboard.SetImage(bmp_out)
        End Using
 
        RichTextBox1.Paste()