Dim i As Integer = lstBox1.Items.IndexOf(lstBox1.SelectedItem) MessageBox.Show(myListSource.Item(i).Description.ToString, "Source Description")