程序运行时随机产生100个两位整数添加在左列表框中；单击左列表框中某项，该列表项移到右列表框中；单击“>>”按钮则将左列表框中所有项移到右列表框中；单击“还原”按钮，左列表框中显示原有100个整数，右列表框清空。

示一区间的随机数：int((上界－下界＋1)*Rnd)＋下界
Private Sub Command1_Click() '>>移动
If List1.ListIndex >= 0 Then
List2.AddItem (List1.Text)
List1.RemoveItem (List1.ListIndex)
End If
End Sub

Private Sub Command2_Click() '还原
Dim count, i As Integer
count = List2.ListCount
For i = 1 To count
List1.AddItem (List2.Text)
Next i
List2.Clear
End Sub

Private Sub Form_Load()
Dim i, r As Integer
For i = 1 To 100 '获得100个两位随机数
r = Int((99 - 10 + 1) * Rnd) + 10
List1.AddItem (r)
Next i
End Sub

注:list1 对应 数据1 list2 对应 数据2

Private Sub Command2_Click() '还原
Dim count, i As Integer
count = List2.ListCount
For i = 0 To count-1
List1.AddItem (List2.list(i))
Next i
List2.Clear
End Sub
這個部分要改成這樣比較合理，要不得到的數據和開始的不同

Private Sub cmdUp_Click()
On Error Resume Next
Dim nItem As Integer

With lstSelected
If .ListIndex < 0 Then Exit Sub
nItem = .ListIndex
If nItem = 0 Then Exit Sub '不能将第一个项目向上移动
'向上移动项目
.AddItem .Text, nItem - 1
'删除旧的项目
.RemoveItem nItem + 1
'选择刚刚被移动的项目
.Selected(nItem - 1) = True
End With
End Sub

Private Sub cmdDown_Click()
On Error Resume Next
Dim nItem As Integer

With lstSelected
If .ListIndex < 0 Then Exit Sub
nItem = .ListIndex
If nItem = .ListCount - 1 Then Exit Sub '不能将最后的项目向下移动
'向下移动项目
.AddItem .Text, nItem + 2
'删除旧的项目
.RemoveItem nItem
'选择刚刚被移动的项目
.Selected(nItem + 1) = True
End With
End Sub

Private Sub cmdRightOne_Click()
On Error Resume Next
Dim i As Integer

If lstAll.ListCount = 0 Then Exit Sub

lstSelected.AddItem lstAll.Text
i = lstAll.ListIndex
lstAll.RemoveItem lstAll.ListIndex
If lstAll.ListCount > 0 Then
If i > lstAll.ListCount - 1 Then
lstAll.ListIndex = i - 1
Else
lstAll.ListIndex = i
End If
End If
lstSelected.ListIndex = lstSelected.NewIndex
End Sub

Private Sub cmdRightAll_Click()
On Error Resume Next
Dim i As Integer
For i = 0 To lstAll.ListCount - 1
lstSelected.AddItem lstAll.List(i)
Next
lstAll.Clear
lstSelected.ListIndex = 0
End Sub

Private Sub cmdLeftOne_Click()
On Error Resume Next
Dim i As Integer

If lstSelected.ListCount = 0 Then Exit Sub

lstAll.AddItem lstSelected.Text
i = lstSelected.ListIndex
lstSelected.RemoveItem i

lstAll.ListIndex = lstAll.NewIndex
If lstSelected.ListCount > 0 Then
If i > lstSelected.ListCount - 1 Then
lstSelected.ListIndex = i - 1
Else
lstSelected.ListIndex = i
End If
End If
End Sub

Private Sub cmdLeftAll_Click()
On Error Resume Next
Dim i As Integer
For i = 0 To lstSelected.ListCount - 1
lstAll.AddItem lstSelected.List(i)
Next
lstSelected.Clear
lstAll.ListIndex = lstAll.NewIndex

End Sub

Private Sub Form_Load()
lstAll.AddItem "aaa"
lstAll.AddItem "bbb"
lstAll.AddItem "ccc"
lstAll.ListIndex = 0
End Sub

Private Sub lstAll_DblClick()
cmdRightOne_Click
End Sub

Private Sub lstSelected_DblClick()
cmdLeftOne_Click
End Sub

看看这个代码就可以了

这个是系统自带的 很全面的