请问一下，怎么让combo下拉列表中的每个选项对应一张图片，并将图片显示在窗体上

Private Sub Combo1_Click()
a = Combo1.Text & ".jpg"
Path = "W:\photo\PHOTO FB\"  '图片存放路径  图片名字要与列表中的选面名一样就可以了  
Image1.Picture = LoadPicture((Path & a), vbLPLarge, vbLPColor)
End Sub

谢谢大神！