Работа с ComboBox - VB

Формулировка задачи:

Собственно говоря проблема заключается в следующем: При задании объекту ComboBox условий для показа изображения при выборе списка ничего не происходит. Код писал такой:

Select Case Combo1.ListIndex
    Case 0
         Picture3.Picture = LoadPicture("C:\i3.bmp")
    Case 1
         Picture3.Picture = LoadPicture("C:\i2.bmp")
    Case 2
         Picture3.Picture = LoadPicture("C:\i1.bmp")
 End Select
    Picture3.Visible = True

Может я что-то не так понял из урока про работу с объектом ComboBox, т.к. неопытен и только учусь. Возможно применение структуры принятия решений Select Case вообще неприменимо к данному объекту... В общем помогите советом добрым!

Решение задачи: «Работа с ComboBox»

textual
                            Листинг программы 
                        

                            Private Sub Combo1_Change()
  Select Case Combo1.ListIndex
'...
  End Select
End Sub
 
Private Sub Combo1_Click()
  Combo1_Change
End Sub
                        