现有如下图所示的两个组合框，想实现以下功能，应该如何编写代码呢？请各位大侠指教。
combo1.additem "水果"
combo1.additem "蔬菜"
当选中combo1中的“水果”时，combo2中会有“苹果”、“梨”等选项供选择；
当选中combo1中的“蔬菜”时，combo2中会有“白菜”、“萝卜”等选项供选择。

谢谢楼上两位，经验正，均可实现以上功能。谢谢！

另请教一个问题：
如何把Excel表格中的数据导入到组合框中？
如附件Book1.xls中Sheet1中第一列（A列）数据为“苹果”、“梨”；第二列（B列）数据为“白菜”、“萝卜”。若想实现本帖功能，应该如何做？谢谢！

[ 本帖最后由 桃源书生 于 2009-11-10 11:00 编辑 ]

读取excel查到了，但是不清楚如何把excel中的数据写入combo中，请指点。
附读取excel代码：
Dim xlsApp As Excel.Application
    Dim xlsworkbook As Excel.Workbook
    Dim xlssheet1 As Excel.Worksheet
    Dim xlssheet2 As Excel.Worksheet
    Set xlsApp = CreateObject("Excel.Application")
    Set xlsworkbook = xlsApp.Workbooks.Open("C:\a.xls")
    xlsApp.Visible = False
    Set xlssheet1 = xlsworkbook.Worksheets.Item(1)
    Dim h As Integer
    Dim l As Integer
    h = xlssheet1.UsedRange.Rows.Count
    l = xlssheet1.UsedRange.Columns.Count