请大哥们指点一下，谢谢。

[游子]

我在窗体上有一个List1和List2还有一个command1 我在list1里有很多数据，我希望在我点command1的时候就可以随机的从List1里移30个数据到List2里面，下面是我的代码：
Private Sub Command1_Click()
Dim i As Long, NumTMP As Long
For i = 1 To 2
NumTMP = Int((List1.List + 1) * Rnd)
List2.AddItem , , List1.List(NumTMP).Text
List1.List.Remove NumTMP
Next


End Sub
可以不行。。。。请指教 谢谢

[波导终结者]

你一个问题要问几次？前几次的贴都不结，贴也不会，只为了显眼一点，就重开一贴？