就这么个玩意网上多的是。。。
窗体上两个combo，设置其Style属性为2(Dropdown list)
[code=c]
Option Explicit
Dim provinces As Variant
Dim cities As Variant

Private Sub Combo1_Click()
Static prevIndex As Integer
Dim item As Variant
Dim tmpCities As Variant

If Combo1.ListIndex = prevIndex Then Exit Sub
prevIndex = Combo1.ListIndex

tmpCities = cities(Combo1.ListIndex)
Combo2.Clear
For Each item In tmpCities
    Combo2.AddItem item
Next
Combo2.ListIndex = 0
End Sub

Private Sub Form_Load()
'自己补充完整省份和各下级城市
'注意添加下级城市时，其顺序应与provinces里一一对应
provinces = Array("北京", "天津", "河北", "重庆")
cities = Array(Array("北京", "北京其它"), _
                Array("天津", "天津其它"), _
                Array("河北", "石家庄", "河北其它"), _
                Array("重庆", "石柱", "重庆其它") _
            )
            
Dim item As Variant
Combo1.Clear
For Each item In provinces
    Combo1.AddItem item
Next
Combo1.ListIndex = 0
End Sub
[/code]
欢迎提出其它的实现方法....

最近VB版里冷冷清清的，在招聘网上找到的VB相关的职位也寥寥无几，看来VB真的是行将就木了？！