[RESOLVED] picture1 & picture2 help

i have 2 picture boxes

picture2 has autoredraw enabled and the image is set its a large image

now i wish to resize that picture3 image to fit on picture3 by 1 button click

so far i have this i dont know how to tweak it

Private Sub Command7_Click()
StretchBlt Picture3.hdc, _
0, 0, _
Picture3.ScaleWidth, _
Picture3.ScaleHeight, _
Picture2.hdc, 44, 0, _
Picture2.ScaleWidth, _
Picture2.ScaleHeight, _
&HCC0020
End Sub

it sets to much colour and looks fuzzy