ریسایز کردن عکس هم اندازه با picturebox

[hosein3000]

سلام دوستان
من با کد زیر عکسمو توی picturebox لود می کنم
Private Sub Picture2_Click()
With cdPic
.Filter = "Pictures (*.jpg)|*.jpg|*.BMP|*.BMP"
.ShowOpen

Picture2.Picture = LoadPicture(.FileTitle)
pic = .FileTitle
End With
End Sub
ولی مشکل اینجاست که وقتی عکسمو لود می کنم فقط اندازه اون picturebox عکسمو نشون می ده یعنی اگه عکس از سایز picturebox بزرگ باشه ناقص نشون می ده
میشه بفرمایین چطور می تونم وقتی عکسمو لود کردم عکسمو تو picturebox لود کردم کامل نشون بده
یعنی سایز عکسم بشه سایز picturebox

[setroyd]

Picture1.AutoRedraw = True
Picture1.PaintPicture Picture1.Picture, 0, 0, Picture1.Width, Picture1.Height, , , , , vbSrcCopy

موفق باشی