VB_2014_SLIP 8

  

SLIP 8_1

Option Explicit

Private Sub Form_Load()

lstBox.AddItem "Picture1"

lstBox.AddItem ("picture2")

End Sub

Private Sub lstBox_Click()

Dim i As Integer

For i = 1 TolstBox.ListCount - 1

If lstBox.ListIndex = 1 Then

pcrDisplay.Picture = LoadPicture("C:\Users\Ramdas\Pictures\Transmission                                                     media\coaxial_cable.jpg")

Else

pcrDisplay.Picture = LoadPicture("C:\Users\Ramdas\Pictures\Transmission media\Shielded                           twisted-pair cable (STP).jpeg")

End If

Next

End Sub