初学者自学中 ，

菜鸟自学中 求助，，
Private Sub Lis_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lst.SelectedIndexChanged
    Dim y As String
    y = lst.Items(lst.SelectedIndex)
    Select Case y
        Case "罗胜"
            favoriteColor = "红色"
        Case "李海"
            favoriteColor = "绿色"
        Case "李杨"
            favoriteColor = "蓝色"
        Case "杨长波"
            favoriteColor = "黄色"
    End Select
    MessageBox.Show(y & "喜欢" & favoriteColor, "颜色爱好")
End Sub
End Class

问题在哪儿啊，，求助啊。我是初学者，在本论坛下载了vb.net2005入门经典，开始学，以上代码都是教程上的练习题。
------解决方案--------------------
代码没有粘贴全。先报名参加个电脑操作基础班吧。
------解决方案--------------------
        在Dim y As String 后边加上下面语句：

Dim favoriteColor As String = ""
------解决方案--------------------

你 lst应该是lis,
lis(即ListBox1)， 在控件里的Items里加入罗胜，李海，李杨，杨长波
 Private Sub Lis_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lis.SelectedIndexChanged
        Dim y As String
        Dim favoriteColor As String = ""
        y = Lis.Items(Lis.SelectedIndex)
        Select Case y
            Case "罗胜"
                favoriteColor = "红色"
            Case "李海"
                favoriteColor = "绿色"
            Case "李杨"
                favoriteColor = "蓝色"
            Case "杨长波"
                favoriteColor = "黄色"
        End Select
        MessageBox.Show(y & "喜欢" & favoriteColor, "颜色爱好")
    End Sub