在TEXTBOX里面每输入一个字符，listbox就自动搜索相似的内容类似 VB帮助那种效果

用Instr函数就可以实现您要的程式。

Private Sub Text1_Change()
For i = 0 To List1.ListCount - 1
    If InStr(1, List1.List(i), Text1.Text, vbTextCompare) Then
        List1.Selected(i) = True
    End If
Next
End Sub

提问者评价

谢谢，确实可以。