Public Class Form1
Private Sub lstData_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstData.SelectedIndexChanged
Dim strName As String
Dim strFavoriteColor As String
strName = lstData.Items(lstData.SelectedIndex).ToString
Select Case strName.ToLower
Case "bryan"
strFavoriteColor = "Madras Yellow"
Case "jenifer"
strFavoriteColor = "Sea Blue"
Case "eddie", "katelyn"
strFavoriteColor = "Passionate Purple"
Case Else
strFavoriteColor = "Morning Mist"
End Select
MessageBox.Show(strName & "'s favorite color is " & strFavoriteColor, "Select Demo")
End Sub
End Class