textbox类拟百度搜索框

Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Me.TextBox1.AutoCompleteMode = AutoCompleteMode.Suggest
        Me.TextBox1.AutoCompleteSource = AutoCompleteSource.CustomSource
	for i as integer=0 to 20
        Me.TextBox1.AutoCompleteCustomSource.Add(textbox1.text & i & "safasdf")
	next
End Sub

原来还有这用法~这回SB一回了~丢人啊~