我想实现上述功能，点击查找，弹出查找对话框，输入查找内容，点击查找按钮(这几步我都会)，下面不会
第一个含有查找内容的一行显示为蓝色，再次点击查找按钮，第二个含有查找内容的一行显示为蓝色。
主要是查找算法不太会。
请高手指教，谢谢！

  Dim i As Integer
  For i = List1.ListIndex + 1 To List1.ListCount - 1
    If InStr(List1.List(i), a) > 0 Then    'a是要查找的字符，比如a="拉伸"
      List1.Selected(i) = True
      Exit For
    End If
  Next