Screenshot.Screenshot picConfig 'Ist mein Haut-Picture
 
With Picture1
    .PaintPicture picConfig.Image, 0, 0, 210, 300, 10920, 10155, 210, 300
End With
 
With Picture2
    .PaintPicture picConfig.Image, 0, 0, 210, 300, 10920, 1015, 210, 300'Zum 
    ' Testen habe ich hier extra aus 10155 = 1015 gemacht
End With
 
MsgBox Screenshot.PicCompare(Picture1, Picture2)