砂锅有釉好还是无釉好:初学VB,寻求注释,请把?处写上注释,谢谢

Private Sub Form_Load()

'装载窗体时，给列表中的元素赋值
List1.AddItem "China" '设置LIST1的复选框显示与否属性Style（0-STANDARD）
List1.AddItem "America"
List1.AddItem "Japan"
List2.AddItem "Soccer" '设置LIST1的复选框显示与否属性Style（1-CHECKBOX)
List2.AddItem "Tennis"
List2.AddItem "Basketball"

End Sub

Private Sub LefttoRightCmd_Click()
'将左边列表中所选元素移动到右边列表中
If List1.ListIndex >= 0 Then '???

'在右边列表中增加新元素
List2.AddItem text1.Text '???

'删除左边列表中的所选元素
List1.RemoveItem List1.ListIndex '???

End If

End Sub

Private Sub List1AddCmd_Click()

Dim ListItem As String
'
ListItem = InputBox("在列表中输入新项目") '???
'向列表中加入新项目
If Trim(ListItem) <> "" Then '???
'Trim（）作用是清除ListItem字符串内的空格

List1.AddItem ListItem '???
End If

End Sub

Private Sub List1ClearCmd_Click()

'清空列表
List1.Clear

End Sub

Private Sub List1MoveCmd_Click()

Dim i As Integer
'判断列表框是否只有一个项目被选中
If List1.SelCount = 1 Then '???

List1.RemoveItem List1.ListIndex '???

ElseIf List1.ListCount > 1 Then '???

'删除列表框中的所选中的多个项目
For i = List1.ListCount - 1 To 0 Step -1 '???
'ListCount返回列表框中的项目总数
'ListCount-1是列表框中最后一个项目的索引号

'判断该项目是否被选中，Selected()返回布尔值
If List1.Selected(i) Then '???
'删除索引号为i的项目
List1.RemoveItem i '???

End If
Next
End If

End Sub