excel表格怎么使用VBA在窗体中预览图片?

Private Sub ListBox1_Click()
  On Error GoTo err
  Image1.Picture=LoadPicture(ThisWorkbook.path & "\图片\" & ListBox1.
  Text): Exit Sub
err:
MsgBox "请选择图片名！", 64, "提示"
End Sub
Private Sub UserForm_Initialize()
Dim jpg As String, s As String, n As Long, path As String
On Error GoTo err
Me.BackColor=&HFFC0C0  '设置窗体背景色
Me.ListBox1.BackColor=&HFFFF80   '设置列表框背景色
path=ThisWorkbook.path & "\图片\"
s=Dir(path & "\*.jpg")
While Len(s) > 0
n=n+1
s=Dir()
Wend
Image1.Picture=LoadPicture(ThisWorkbook.path & "\" & "图片\1.jpg")
jpg=Dir(ThisWorkbook.path & "\图片\*.jpg")
ListBox1.AddItem "图片列表"
For I=1 To n
ListBox1.AddItem jpg
 jpg=Dir
Next I
Exit Sub
err:
End Sub