Diciamo che su Dib (di tipo bitmap) ho l'immagine completa, mentre su Rect (di tipo Rectangle) ho definito il rettangolo che voglio estrarre.
codice:
Dim bmpTmp = New Bitmap(Rect.Width + 1, Rect.Height + 1)
Dim grTmp As Graphics = Graphics.FromImage(bmpTmp)
grTmp.DrawImageUnscaledAndClipped(Dib, New Rectangle(-Rect.X, -Rect.Y, bmpTmp.Width + Rect.X, bmpTmp.Height + Rect.Y))
Ora su bmpTmp hai la tua bitmap ritagliata

Ciao
Sergio