Problème pour Rogner une image

Salut,

J'ai un problème avec ce code pris sur le site:

Private Function RognImage(ByVal ImaSource As Bitmap, ByVal xPixelDep As Int32, ByVal yPixelDep As Int32, ByVal xPixelTotal As Int32, ByVal yPixelTotal As Int32) As Bitmap

        Dim nouvImage As New Bitmap(xPixelTotal, yPixelTotal)
        Dim graph As Graphics = Graphics.FromImage(nouvImage)
        Dim rect As New Rectangle(0, 0, xPixelTotal, yPixelTotal)
        graph.DrawImage(ImaSource, rect, xPixelDep, yPixelDep, xPixelTotal, yPixelTotal, GraphicsUnit.Pixel)
        Return nouvImage

End Function

Le but est de découper une partie choisi d'une Image et de l'afficher dans une autre.
Mais le problème c'est qu'il ne copie pas l'image en entier, il laisse une bande de pixel sur le coté droit et bas tout blanc donc ceci fausse l'image et impossible de l'étirer par exemple.

J'ai créer une autre fonction avec setpixel() & getpixel() mais c'est la même chose.

Vous avez une idée pour résoudre ce problème ?

Coridialement, Jielde.