PictureBox Question

[djwk]

How would I go about making a picture fit to the size of a PictureBox?

[jcis]

Private Sub Form_Load()
    Dim lPic As Picture
    
    Set lPic = LoadPicture("D:\tigre.bmp")  'Add Path here
    
    With Picture1
        .AutoRedraw = True
        .PaintPicture lPic, 0, 0, .ScaleWidth, .ScaleHeight
        
        .Picture = .Image 'Just if you want to use Picture1.Picture,
                          'but can use Picture1.Image directly
    End With
End Sub