Question

VB程序设计时，如何在list2中一次性筛选添加list1中的一些项目？

各位大神，我要做一个小程序，界面如下：

如图所示，从左到右分别有list1,list2,list3,list4，在初始化过程中，我向list1中添加了一些列的项目，项目源自一些表格，可能在真正使用时每次上传的项目会有些不同，这是背景。。。。。
现在，list2为空，我想通过点击“添加默认”这个按钮来给list2增加一些项目，原则是，举个例子：如果list1中有“水 m3”，则list2中就添加“水 m3”，如果list1 中没有此项，则不添加。我编的代码如下：
Private Sub Command3_Click()
n = List1.ListIndex
For i = 0 To n
If List1.List(i) = "水 m3" Then
List2.AddItem list1.list（i）
End If
Next i
End Sub
但此代码并不管用，求各位大神帮忙，谢谢
原问题已经解决，是把

for i=0 to n 改为 for i = 0 to list1.listcount-1
现在的问题是 如何添加list1中所有带有 水泥 文字的项目，我编写的代码如下：

If List1.List(i) = "水泥*" Then
List2.AddItem List1.List(i)
End If
也不管用。。。。求大神帮忙，谢谢~

Answer 1

If instr(List1.List(i) , "水泥")>0 Then

Answer 2

VB程序设计详情可以具体和我说说.