Dim CurImage As Image = New Bitmap(DrawRectangle.Width, DrawRectangle.Height)
Dim g As Graphics = Graphics.FromImage(CurImage)
Dim FromRectangle As Rectangle
Dim ToRectangle As Rectangle
'===========================================
FromRectangle = New Rectangle(DrawRectangle.X, DrawRectangle.Y, DrawRectangle.Width, DrawRectangle.Height)
ToRectangle = New Rectangle(0, 0, DrawRectangle.Width, DrawRectangle.Height)
g.Clear(Color.White)
g.DrawImage(PicBox.Image, ToRectangle, FromRectangle, GraphicsUnit.Pixel)
My.Computer.Clipboard.SetImage(CurImage)