テキストボックスを使ってリストボックス内の検索をしたい

環境/言語:[WindowsXP pro SP3 VB.NET2008]
分類:[.NET]

以下のリストボックスがあります。
-----
醤油ラーメン
激辛ラーメン
激旨ラーメン
激辛チャーハン
------
これらをテキストボックスを使って前方一致で検索して、『激辛』なら
リストボックスには激辛ラーメンと激辛チャーハン　と表示させたいのですが、
どのように書いていけば良いのか分かりません。

テキストボックス内の文字列を取得させるのかな...と思い
http://dobon.net/vb/dotnet/control/tbselectedtext.html
のコードを使用したのですが（当然ですが）何も起きません。
VB 2008を使っています。

超てきとう
Private menuList As New List(Of String)

Private Sub Form1_Load1(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

menuList.Add("醤油ラーメン")
menuList.Add("激辛ラーメン")
menuList.Add("激旨ラーメン")
menuList.Add("激辛チャーハン")

ListBox1.DataSource = menuList

End Sub

Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

Dim newlist As New List(Of String)

For Each item As String In menuList
If item.StartsWith(TextBox1.Text) Then
newlist.Add(item)
End If
Next

ListBox1.DataSource = newlist

End Sub

■No26602に返信(くらさんの記事)
> 超てきとう
> Private menuList As New List(Of String)
>
> Private Sub Form1_Load1(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
>
> menuList.Add("醤油ラーメン")
> menuList.Add("激辛ラーメン")
> menuList.Add("激旨ラーメン")
> menuList.Add("激辛チャーハン")
>
> ListBox1.DataSource = menuList
>
> End Sub
>
> Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
>
> Dim newlist As New List(Of String)
>
> For Each item As String In menuList
> If item.StartsWith(TextBox1.Text) Then
> newlist.Add(item)
> End If
> Next
>
> ListBox1.DataSource = newlist
>
> End Sub
>

動作しました。ありがとうございました