【实例说明】
    注册ID时，选择某省市。

【编程思路】
    ComboBox控件项目的添加和删除。

【设计步骤】
    1.新建一个标准工程，创建一个新窗体，默认名为Form1。
    2.在Form1窗体中放置两个ComboBox控件，改名为cboProvince和cboCity（将它们的Style设置为2）。

    3.源程序  [素材源程序下载]

'程序太长，现在以北京，上海、天津、重庆和浙江为例。

Private Sub Form_Load()
        cboProvince.AddItem "北京"
        cboProvince.AddItem "上海"
        cboProvince.AddItem "天津"
        cboProvince.AddItem "重庆"
        cboProvince.AddItem "浙江"
End Sub

Private Sub cboProvince_Click()
        Dim i As Long
        Dim t As Long

        'clean cboCity

        t = cboCity.ListCount

        For i = 0 To t - 1
                cboCity.RemoveItem 0
        Next i

        'Add cboCity

        If cboProvince.Text = "北京" Then
                cboCity.AddItem "北京"
        End If

        If cboProvince.Text = "上海" Then
                cboCity.AddItem "上海"
        End If

        If cboProvince.Text = "天津" Then
                cboCity.AddItem "天津"
        End If

        If cboProvince.Text = "重庆" Then
                cboCity.AddItem "重庆"
        End If

        If cboProvince.Text = "浙江" Then
                cboCity.AddItem "杭州"
                cboCity.AddItem "宁波"
                cboCity.AddItem "温州"
                cboCity.AddItem "嘉兴"
                cboCity.AddItem "湖州"
                cboCity.AddItem "绍兴"
                cboCity.AddItem "金华"
                cboCity.AddItem "衢州"
                cboCity.AddItem "舟山"
                cboCity.AddItem "台州"
                cboCity.AddItem "丽水"
        End If
End Sub