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