哪位帮我做一道vb程序题，在线等，好的立刻给分

在窗体上建立2个列表框和2个命令按钮，将List2控件的Style属性改为1-checkbox，sorted属性改为True，代码如下：

Private Sub Command1_Click()
If List1.SelCount > 0 Then
List2.AddItem List1.Text
List1.RemoveItem List1.ListIndex
End If
End Sub

Private Sub Command2_Click()
If List2.SelCount > 0 Then
For i = List2.ListCount - 1 To 0 Step -1
If List2.Selected(i) Then
List1.AddItem List2.List(i)
List2.RemoveItem List2.ListIndex
End If
Next
End If
End Sub

Private Sub Form_Load()
List1.AddItem "日本"
List1.AddItem "美国"
List1.AddItem "法国"
List1.AddItem "英国"
List1.AddItem "印度"
List1.AddItem "巴西"
List1.AddItem "以色列"
Command1.Caption = "添加"
Command2.Caption = "删除"
End Sub

Private Sub Command1_Click()
List2.AddItem (List1.Text)
End Sub

Private Sub Command2_Click()
If List2.SelCount = 0 Then Exit Sub
List2.RemoveItem List2.ListIndex
End Sub
Private Sub Form_Load()
List1.AddItem ("A")
List1.AddItem ("B")
List1.AddItem ("C")
List1.AddItem ("D")
List1.AddItem ("E")
List1.AddItem ("F")
List1.AddItem ("G")
List1.AddItem ("H")
End Sub

Private Sub Command1_Click()
If List1.ListIndex >= 0 Then
List2.AddItem List1.Text
End If
End Sub

Private Sub Command2_Click()
If List1.ListIndex >= 0 Then
List1.RemoveItem List1.ListIndex
End If
End Sub

将list2控件的multiselect属性改为1-simple，就可以实现最后的要求

窗体内放两个listbox控件和两个command控件，名字都不用动，
list2的MultiSelect设为1，以下是代码
Option Explicit
Dim I As Long
Private Sub Form_Load()
List1.AddItem "日本"
List1.AddItem "美国"
List1.AddItem "法国"
List1.AddItem "英国"
List1.AddItem "印度"
List1.AddItem "巴西"
List1.AddItem "以色列"
Command1.Caption = "添加"
Command2.Caption = "删除"
End Sub

Private Sub Command1_Click()
If List1.SelCount > 0 Then
List2.AddItem List1.Text
List1.RemoveItem List1.ListIndex
End If
End Sub

Private Sub Command2_Click()
If List2.SelCount > 0 Then
For I = List2.ListCount - 1 To 0 Step -1
If List2.Selected(I) Then
List1.AddItem List2.List(I)
List2.RemoveItem List2.ListIndex
End If
Next
End If
End Sub