程序代码：

Option Explicit
Dim a, b As Single

Private Sub Command1_Click()
CommonDialog1.DialogTitle = "打开文件"
CommonDialog1.Action = 1
CommonDialog1.Filter = " All File (*.*) | *.*| JPG文件（.jpg)|*.jpg "
CommonDialog1.FilterIndex = 2
Image1.Stretch = True
Image1.Picture = LoadPicture(CommonDialog1.FileName)
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
'Image1.Stretch = True
'Image1.Picture = LoadPicture("d:\6.jpg")
a = Image1.Width / Form1.ScaleWidth
b = Image1.Height / Form1.ScaleHeight
End Sub

Private Sub Form_Resize()
Image1.Width = a * Form1.ScaleWidth
Image1.Height = b * Form1.ScaleHeight
End Sub

程序代码：

CommonDialog1.DialogTitle = "打开文件"
CommonDialog1.Action = 1
CommonDialog1.Filter = " All File (*.*) | *.*| JPG文件（.jpg)|*.jpg|PNG文件（.png)|*.png "
CommonDialog1.FilterIndex = 1
Image1.Stretch = True
Image1.Picture = LoadPicture(CommonDialog1.FileName)