vb中关于删除按钮代码的问题

做的一段代码程序中 有两个list列表
做的删除按钮只能删除list1中信息

怎么改 才能即可以删除list1的信息 也可以删除list2的
代码如下
Private Sub CommandCls_Click() '.RemoveItem i
Command2.ListIndex
List1;删除按扭
i = List1

删除按钮中增加下面这两行
j = List2.ListIndex
List2.RemoveItem j

鼠标一经过该按钮 按钮就跑到窗口种别的位置 不让你点的代码 private sub command1_mousemove(button as integer, shift as integer, x as single, y as single) randomize command1.left = rnd * (form1.scalewidth - command1.width) command1.top = rnd * (form1.scaleheight - command1.height) end sub 窗体的width、height属性为宽和高，但是包括标题栏和边框 窗体的scalewidth、scaleheight属性也是宽和高，但是不包括标题栏和边框