How to stretch picture in a picture box

Home » Controls » How to stretch picture in a picture box

Posted on January 4, 2009

'Controls - How to stretch picture in a picture box
Public Sub ZoomPicture(pct As PictureBox, zoom As Double)
    With pct
        .Width = .Width * zoom
        .Height = .Height * zoom
        .PaintPicture .Picture, 0, 0, .ScaleWidth, .ScaleHeight
    End With
End Sub
 
'How can I use this function:
'Call ZoomPicture Picture1, 1.1