كمك كردن سايز عكس

[kiss_my_l0ve]

سلام دوستان ميشه بگين تكه كدي كه ن.شتم كجاش اشتباه كه عكس سفيد ذخيره ميشه ولي سايزش كم ميشه
Private Sub Command1_Click()

Picture2.PaintPicture Image1.Picture, 0, 0, Picture2.ScaleWidth, Picture2.ScaleHeight
SavePicture Picture2.Image, App.Path & "\test2.bmp"


Picture1.PaintPicture Image1.Picture, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight
SavePicture Picture1.Image, App.Path & "\test1.bmp"

End Sub

Private Sub Image1_Click()
On Error Resume Next
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
Image1.Picture = LoadPicture(CommonDialog1.FileName)
End If
End Sub

[fadakplus]

باسلام:
روكدت كار كردم كافيست خاصيتAutoRedraw
pic1,pic2رو true كني مشكل حل ميشه.
مي تواني ازكدزير استفاده كني:
Private Sub Form_Load()
Picture1.AutoRedraw = True
Picture2.AutoRedraw = True
End Sub