'probiers mal so:
        Dim xQuelle As Short = 2300
        Dim yQuelle As Short = 2985
        Dim Ziel As New Bitmap(Image.Width , Image.Height)
        Dim g As Graphics
        Dim xZiel As Short = 0
        Dim yZiel As Short = 0
        Dim Breite As Short = 5100
        Dim Höhe As Short = 5100
        Dim imgBefore As Image = PictureBox1.Image
If PictureBox1.Image.Width >= xQuelle And PictureBox1.Image.Height >= yQuelle Then
        g = Graphics.FromImage(Ziel)
        g.DrawImage(anfang, xZiel, yZiel, New Rectangle(xQuelle, yQuelle, _
          Breite, Höhe), GraphicsUnit.Pixel)
        MsgBox("Fertig!")'Wenn das nicht kommt, dann hast du einen Fehler-->
End If