请教如何才能让combobox的数据项全部清空。急急！！！

[gbz]

请给出实例。。。

[longji]

组合框控件、AddItem 方法、Picture 和 PicturePosition 属性示例

下例用组合框来显示控件的图片位置选项。每次用户单击列表选项，命令按钮上的图片和题注都将被更新。这个代码示例还使用了 AddItem 方法来固定组合框选项。

若要使用该示例，请将示例代码复制到某窗体的声明变量部分。请确保该窗体包含：

名为 Label1 的标签。


名为 CommandButton1 的命令按钮。


名为 ComboBox1 的组合框。
Private Sub UserForm_Initialize()
Label1.Left = 18
Label1.Top = 12
Label1.Height = 12
Label1.Width = 190
Label1.Caption = "Select picture placement " _
& "relative to the caption."

'把列表条目加入组合框。每一
'条目的值符合组合框中
'对应的 ListIndex 的值。
ComboBox1.AddItem "Left Top" 'ListIndex = 0
ComboBox1.AddItem "Left Center" 'ListIndex = 1
ComboBox1.AddItem "Left Bottom" 'ListIndex = 2
ComboBox1.AddItem "Right Top" 'ListIndex = 3
ComboBox1.AddItem "Right Center" 'ListIndex = 4
ComboBox1.AddItem "Right Bottom" 'ListIndex = 5
ComboBox1.AddItem "Above Left" 'ListIndex = 6
ComboBox1.AddItem "Above Center" 'ListIndex = 7
ComboBox1.AddItem "Above Right" 'ListIndex = 8
ComboBox1.AddItem "Below Left" 'ListIndex = 9
ComboBox1.AddItem "Below Center" 'ListIndex = 10
ComboBox1.AddItem "Below Right" 'ListIndex = 11
ComboBox1.AddItem "Centered" 'ListIndex = 12
'使用下拉列表
ComboBox1.Style = fmStyleDropDownList '组合框值是 ListIndex 值
ComboBox1.BoundColumn = 0
'把组合框设置为第一个条目
ComboBox1.ListIndex = 0


ComboBox1.Left = 18
ComboBox1.Top = 36
ComboBox1.Width = 90
ComboBox1.ListWidth = 90

'初始化 CommandButton1
CommandButton1.Left = 230
CommandButton1.Top = 36
CommandButton1.Height = 120
CommandButton1.Width = 120

'注意：确认引用的位图文件是
'存在于系统中的，并在
'文件名中包括路径
CommandButton1.Picture = _
LoadPicture("c:\windows\argyle.bmp")
CommandButton1.PicturePosition = ComboBox1.Value
End Sub

Private Sub ComboBox1_Click()
Select Case ComboBox1.Value
Case 0 '上左
CommandButton1.Caption = "Left Top"
CommandButton1.PicturePosition = _
fmPicturePositionLeftTop

Case 1 '中左
CommandButton1.Caption = "Left Center"
CommandButton1.PicturePosition = _
fmPicturePositionLeftCenter

Case 2 '下左
CommandButton1.Caption = "Left Bottom"
CommandButton1.PicturePosition = _
fmPicturePositionLeftBottom

Case 3 '上右
CommandButton1.Caption = "Right Top"
CommandButton1.PicturePosition = _
fmPicturePositionRightTop

Case 4 '中右
CommandButton1.Caption = "Right Center"
CommandButton1.PicturePosition = _
fmPicturePositionRightCenter

Case 5 '下右
CommandButton1.Caption = "Right Bottom"
CommandButton1.PicturePosition = _
fmPicturePositionRightBottom

Case 6 '左上
CommandButton1.Caption = "Above Left"
CommandButton1.PicturePosition = _
fmPicturePositionAboveLeft

Case 7 '中上
CommandButton1.Caption = "Above Center"
CommandButton1.PicturePosition = _
fmPicturePositionAboveCenter

Case 8 '右上
CommandButton1.Caption = "Above Right"
CommandButton1.PicturePosition = _
fmPicturePositionAboveRight

Case 9 '左下
CommandButton1.Caption = "Below Left"
CommandButton1.PicturePosition = _
fmPicturePositionBelowLeft

Case 10 '中下
CommandButton1.Caption = "Below Center"
CommandButton1.PicturePosition = _
fmPicturePositionBelowCenter

Case 11 '右下
CommandButton1.Caption = "Below Right"
CommandButton1.PicturePosition = _
fmPicturePositionBelowRight

Case 12 '中
CommandButton1.Caption = "Centered"
CommandButton1.PicturePosition = _
fmPicturePositionCenter

End Select

End Sub

[gbz]

老大我要的是简单的清空数据项（列表项）就行了，不明白！

[zfzfzf]

ComboBox1.clear

[longji]

ComboBox1.Text=""也可以！