Private Sub lstFotos_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstFotos.SelectedIndexChanged
ilustracion = Me.lstFotos.SelectedItem
rutaCarga = ruta & "\" & ilustracion & "\Nombre.jpg"
picView.Image = loadImage(rutaCarga)
End Sub
Public Function loadImage(ByVal name As String) As Bitmap
Return New Bitmap(name)
End Function