PictureBox Question

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

Code:

---

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

---