VB 让图片自动适应picturebox控件大小的方法

Picturebox控件加载图片的方法如下：
      Picbox1.Picture = LoadPicture("C:\Users\Administrator\Desktop\picture\hmbb.jpg")
如果将Picturebox控件的AutoSize属性设为True的话，可以让图片框自动适应图片的大小，但无法让图片自动适应图片框的大小。
解决方法有两种：
方法一：使用PaintPicture方法，代码如下
      Picbox1.PaintPicture LoadPicture("C:\Users\Administrator\Desktop\picture\hmbb.jpg"), 0, 0, Picbox1.ScaleWidth, Picbox1.ScaleHeight

方法二: 使用Image控件，将其放入PictureBox中，并设其属性Stretch=True，使得图片自动适应image。代码如下
      Image2.Picture = LoadPicture("C:\Users\Administrator\Desktop\picture\hmbb.jpg", vbLPLarge, vbLPColor)