폼에 Picture 컨트롤 2개 추가한후 이름을 각각 picOld, PicNew로 준다. 그리곤 picOld.Picture 속성에 이미지를 선택해준다.
실행하면 이미지 크기가 2배로 늘어난다.
Private Sub Form_Load()
picOld.AutoSize = True
picNew.Width = picOld.Width * 2
picNew.Height = picOld.Height * 2
picNew.AutoRedraw = True
picNew.PaintPicture picOld.Picture, 0, 0, picNew.ScaleWidth, picNew.ScaleHeight, 0, 0, picOld.ScaleWidth, picOld.ScaleHeight
End Sub
Source Page : http://www.mentalis.org/tips/tip002.shtml
