Private Sub Command1_Click()Dim x As Stringx = "C:\TestImg" & "\" & Combo1.Text & ".jpg"Image1.Picture = LoadPicture(x)End SubPrivate Sub Form_Load()Combo1.AddItem "AA"Combo1.AddItem "BB"Combo1.AddItem "CC"End Sub