建立一简单窗体

'按钮1可以将单个组合框的项目添加到列表框中
Private Sub Command1_Click()
List1.AddItem Combo1.Text
End Sub
'按钮2可以将单个列表框中的项目删除
Private Sub Command2_Click()
With List1
If .ListIndex >= 0 Then
If .ListCount > 0 Then
.RemoveItem .ListIndex
Else
MsgBox "ListBox为空,不能删除"
End If
End If
End With
End Sub
'按钮3可以添加组合框中所有的项目
Private Sub Command3_Click()
Dim i As Integer
For i = 0 To Combo1.ListCount - 1
List1.AddItem Combo1.List(i)
Next
End Sub
'按钮4可以删除列表框中所有的项目
Private Sub Command4_Click()
List1.Clear
End Sub
'初始化,,给列表框和组合框赋初值
Private Sub Form_Load()
Dim i As Integer
For i = 1 To 10
List1.AddItem i
Combo1.AddItem 100 - i
Next
End Sub

同上
Private Sub Command2_Click
List1.Clear
End Sub