A program in visual basic Using select case to change a picture in picture box as soon as we click on list box items..

Private Sub Form_Load()
List1.AddItem "Water lilies"
List1.AddItem "Sunset"
List1.AddItem "Blue hills"
End Sub

Private Sub List1_Click()
a = List1.ListIndex
Select Case a
Case 0
Image1.Picture = LoadPicture("C:\Documents and Settings\All Users\Documents\My Pictures\
Sample Pictures\Water Lilies.jpg")
Case 1
Image1.Picture = LoadPicture("C:\Documents and Settings\All Users\Documents\My Pictures\
Sample Pictures\Sunset.jpg")
Case 2
Image1.Picture = LoadPicture("C:\Documents and Settings\All Users\Documents\My Pictures\
Sample Pictures\Blue hills.jpg")
Case Else
MsgBox "Select any item from listbox!"
End Select
End Sub