Private Subgroup 1_Click ()
Combination 2. clear
Select case combination 1. List index
Case 0
Combination 2. AddItem "Nanjing"
Combination 2. AddItem "Xuzhou"
Case 1
Combination 2. AddItem "Hefei"
Combination 2. AddItem "Chuzhou"
End selection
Combination 2. ListIndex = 0
End joint
Private Sub-Form _Load ()
Combo 1。 AddItem "Jiangsu"
Combo 1。 AddItem "Anhui"
Combo 1。 ListIndex = 0
End joint