´Public Class Test
 
    ' Los items del ListBox.
    Private lbItems As String() =
        {
            "Item1",
            "Item2",
            "Item3"
        }
 
    ' El primer Bitmap.
    Private bmp1 As New Bitmap(Bitmap.FromFile("C:\Users\Administrador\Desktop\PrtScr capture.jpg", False))
 
    ' El segundo Nitmap.
    Private bmp2 As New Bitmap(Bitmap.FromFile("C:\Users\Administrador\Desktop\PrtScr capture.jpg", False))
 
    ' El diccionario de Bitmaps.
    ' A cada objeto le asigno un String igual que los Items del ListBox.
    Private ImageDictionary As New Dictionary(Of String, Bitmap) From
        {
            {"Item1", bmp1},
            {"Item2", bmp2}
        }
 
    ' El ListBox.
    Private WithEvents lb As New ListBox With
        {
            .DataSource = lbItems,
            .Dock = DockStyle.Bottom
        }
 
    ' El PictureBox.
    Private pcb As New PictureBox With
        {
            .Dock = DockStyle.Fill,
            .BackgroundImageLayout = ImageLayout.Stretch
        }
 
    Public Sub New()
 
        ' This call is required by the designer.
        InitializeComponent()
 
        ' Añado los controles al Form.
        Me.Controls.AddRange({lb, pcb})
 
    End Sub
 
    ' El suscriptor del evento "SelectedIndexChanged" del ListBox.
    Private Sub lb_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) _
    Handles lb.SelectedIndexChanged
 
        Dim SelectedItem As String = CStr(sender.SelectedItem)
 
        Select Case Me.ImageDictionary.ContainsKey(SelectedItem)
 
            Case True
                Me.pcb.BackgroundImage = Me.ImageDictionary(SelectedItem)
 
            Case Else
                MessageBox.Show("No se encontró ninguna imagen asociada a este Item.")
 
        End Select
 
    End Sub
 
End Class

using Microsoft.VisualBasic;
using System;
using System.Collections;
using System.Collections.Generic;
using System.Data;
using System.Diagnostics;
public class Test
{
 
	// Los items del ListBox.
	private string[] lbItems = {
		"Item1",
		"Item2",
		"Item3"
 
	};
	// El primer Bitmap.
 
	private Bitmap bmp1 = new Bitmap(Bitmap.FromFile("C:\\Users\\Administrador\\Desktop\\PrtScr capture.jpg", false));
	// El segundo Nitmap.
 
	private Bitmap bmp2 = new Bitmap(Bitmap.FromFile("C:\\Users\\Administrador\\Desktop\\PrtScr capture.jpg", false));
	// El diccionario de Bitmaps.
	// A cada objeto le asigno un String igual que los Items del ListBox.
	private Dictionary<string, Bitmap> ImageDictionary = new Dictionary<string, Bitmap> {
		{
			"Item1",
			bmp1
		},
		{
			"Item2",
			bmp2
		}
 
	};
	// El ListBox.
	private ListBox withEventsField_lb = new ListBox {
		DataSource = lbItems,
		Dock = DockStyle.Bottom
	};
	private ListBox lb {
		get { return withEventsField_lb; }
		set {
			if (withEventsField_lb != null) {
				withEventsField_lb.SelectedIndexChanged -= lb_SelectedIndexChanged;
			}
			withEventsField_lb = value;
			if (withEventsField_lb != null) {
				withEventsField_lb.SelectedIndexChanged += lb_SelectedIndexChanged;
			}
		}
 
	}
	// El PictureBox.
	private PictureBox pcb = new PictureBox {
		Dock = DockStyle.Fill,
		BackgroundImageLayout = ImageLayout.Stretch
 
	};
 
	public Test()
	{
		// This call is required by the designer.
		InitializeComponent();
 
		// Añado los controles al Form.
		this.Controls.AddRange({
			lb,
			pcb
		});
 
	}
 
	// El event-handler del evento "SelectedIndexChanged" del ListBox.
 
	private void lb_SelectedIndexChanged(object sender, EventArgs e)
	{
		string SelectedItem = Convert.ToString(sender.SelectedItem);
 
		switch (this.ImageDictionary.ContainsKey(SelectedItem)) {
 
			case true:
				this.pcb.BackgroundImage = this.ImageDictionary(SelectedItem);
 
				break;
			default:
				MessageBox.Show("No se encontró ninguna imagen asociada a este Item.");
 
				break;
		}
 
	}
 
}
 
//=======================================================
//Service provided by Telerik (www.telerik.com)
//Conversion powered by NRefactory.
//Twitter: @telerik
//Facebook: facebook.com/telerik
//=======================================================
 

ProgressBar_Enabled
Progressbar_Column
ProgressBar_BackColor
ProgressBar_BorderColor
ProgressBar_FillColor1
ProgressBar_FillColor2
ProgressPercent
ProgressPercent_Decimal
ProgressPercent_Text
ProgressPercent_Text_Allignment
ProgressPercent_Text_Trimming
ProgressPercent_Font
ProgressPercent_Forecolor

#Region " [ListView] Draw ProgressBar "
 
    ' [ [ListView] Draw ProgressBar ]
 
    Private Listview_Column As Integer = 4 ' The column index to draw the ProgressBar
 
    Private Percent As Double = 0 ' The progress percentage
    Private Percent_DecimalFactor As Short = 1 ' Example: 0.1
    Private Percent_Text As String = "% Done" ' Example: 0.1% Done
    Private Percent_Forecolor As Brush = Brushes.Black
    Private Percent_Font As Font = Me.Font
 
    Private ProgressBar_BackColor As Brush = Brushes.White
    Private ProgressBar_BorderColor As Pen = Pens.LightGray
    Private ProgressBar_FillColor1 As Color = Color.YellowGreen
    Private ProgressBar_FillColor2 As Color = Color.White
 
    ' ListView [Layout]
    Private Sub ListView1_Layout(sender As Object, e As LayoutEventArgs) _
    Handles ListView1.Layout
 
        ' Set Listview OwnerDraw to True, so we can draw the progressbar.
        ListView1.OwnerDraw = True
 
    End Sub
 
    ' ListView [DrawColumnHeader]
    Private Sub ListView_DrawColumnHeader(ByVal sender As Object, ByVal e As DrawListViewColumnHeaderEventArgs) _
    Handles ListView1.DrawColumnHeader
 
        e.DrawDefault = True ' Draw default ColumnHeader.
 
    End Sub
 
    ' ListView [DrawItem]
    Private Sub ListView_DrawItem(ByVal sender As Object, ByVal e As DrawListViewItemEventArgs) _
    Handles ListView1.DrawItem
 
        e.DrawDefault = False ' Draw default main item.
 
    End Sub
 
    ' ListView [DrawSubItem]
    Private Sub ListView_DrawSubItem(ByVal sender As Object, ByVal e As DrawListViewSubItemEventArgs) _
    Handles ListView1.DrawSubItem
 
        If (e.ItemState And ListViewItemStates.Selected) <> 0 Then
            ' Item is highlighted.
            e.Graphics.FillRectangle(SystemBrushes.Highlight, e.Bounds)
        End If
 
        ' Draw the progressbar.
        If e.ColumnIndex = Listview_Column Then
 
            ' Center the text in the progressbar.
            Dim sf As New StringFormat
            sf.Alignment = StringAlignment.Center
 
            ' Background color of the progressbar is white.
            e.Graphics.FillRectangle(ProgressBar_BackColor, e.Bounds)
 
            ' Percentage of the progressbar to fill.
            Dim FillPercent As Integer = CInt(((Percent) / 100) * (e.Bounds.Width - 2))
 
            ' This creates a nice color gradient to fill.
            Dim brGradient As Brush = _
                New System.Drawing.Drawing2D.LinearGradientBrush(New Rectangle(e.Bounds.X, e.Bounds.Y, e.Bounds.Width, e.Bounds.Height), _
                                                                 ProgressBar_FillColor1, ProgressBar_FillColor2, 270, True)
            ' Draw the actual progressbar.
            e.Graphics.FillRectangle(brGradient, _
                                     e.Bounds.X + 1, e.Bounds.Y + 2, _
                                     FillPercent, e.Bounds.Height - 3)
 
            ' Draw the percentage number and percent sign.
            ' NOTE: make sure that e.SubItem.Text only contains a number or an error will occur.
            e.Graphics.DrawString(Percent.ToString("n" & Percent_DecimalFactor) & Percent_Text, _
                                  Percent_Font, Percent_Forecolor, _
                                  CSng(e.Bounds.X + (e.Bounds.Width / 2)), e.Bounds.Y + 3, _
                                  sf)
 
            ' Draw a light gray rectangle/border around the progressbar.
            e.Graphics.DrawRectangle(ProgressBar_BorderColor, _
                                     e.Bounds.X, e.Bounds.Y + 1, _
                                     e.Bounds.Width - 1, e.Bounds.Height - 2)
        Else
            e.DrawDefault = True
 
        End If
 
    End Sub
 
#End Region