关于PictureBox的问题

Question

private sub pppp()
dim pMargin as single
pmargin=0
if picture1.borderstyle=1 then
  pmargin=1
  if picture1.appearance=1 then
    pmargin=pmargin+1
  endif
endifpicture1.width=picture.scalex(picture1.picture.width,vbhimetric,picture1.scalemode) _
  +picture.scalex(pmargin,vbpixels,picture.scalemode)
picture1.height=picture.scaley(picture1.picture.height,vbhimetric,picture1.scalemode) _
  +picture.scalex(pmargin,vbpixels,picture.scalemode)
end sub