VB Listbox控件疑点

VB Listbox控件疑问
有两个listbox控件，1个command控件。
list1与list2有若干行内容，且行数相同
我想在选中list1时，单击command控件，让list2相应的那一行与list1那一行一起删除，该怎么编程
[解决办法]
有2个思路：一是查找2号的条目跟1号的一样的，就clear它；
二是，把2号的全部清空，再把删除后的1号的复制过来。（推荐）

PS：楼主要学会结帖，不要象我，2007年的帖子到2011年才结…顺便膜拜下楼主结帖率


[解决办法]
我也知道这个思路，就是不知道怎么编程。你发个代码，举个例子

引用:

有2个思路：一是查找2号的条目跟1号的一样的，就clear它；
二是，把2号的全部清空，再把删除后的1号的复制过来。（推荐）

PS：楼主要学会结帖，不要象我，2007年的帖子到2011年才结…顺便膜拜下楼主结帖率

[解决办法]
安装一个msdn，查找listbox的以下方法：clear，additem

AddItem 方法示例
本示例使用 Addltem 方法增加 100 项给一个列表框。要检验此示例，可将本例代码粘贴到一个带有被命名为 List1 的 ListBox 控件的窗体的声明部分，然后按 F5 键并单击该窗体。

Private Sub Form_Click ()
   Dim Entry, I, Msg   ' 声明变量。
   Msg = "Choose OK to add 100 items to your list box."
   MsgBox Msg   ' 显示信息。
   For I = 1 To 100   ' 计数值从 1 到 100。
      Entry = "Entry " & I   ' 创建输入项。
      List1.AddItem Entry   ' 添加该输入项。
   Next I
   Msg = "Choose OK to remove every other entry."
   MsgBox Msg   ' 显示信息。
   For I = 1 To 50   ' 确定如何
      List1.RemoveItem I   ' 每隔一项
   Next I   ' 删除。
   Msg = "Choose OK to remove all items from the list box."
   MsgBox Msg   ' 显示信息。
   List1.Clear   ' 清除列表框。
End Sub