You can get the actual Picture Width/Height in Pixels using ScaleX:

BitBlt Picture1.hDC, 0, 0, _
ScaleX(picSource.Width, vbHimetric, vbPixels), _
ScaleX(picSource.Height, vbHimetric, vbPixels), _
picSource.hDC, 0, 0, vbSrcCopy