Event Form1.Load
  	Form1.ComboBox1.List="A|B"  
    Form1.ComboBox1.ListIndex = 0  
 End Event
  
Event Form1.ComboBox1.SelectChange
Dim 索引1，主城
 索引1 = Split(Form1.ComboBox1.List,"|")   
 主城 = 索引1(Form1.ComboBox1.ListIndex)
    
 If 主城 = "A" Then 
    Form1.ComboBox2.List = "A1|A2|A3"
    Form1.ComboBox2.ListIndex = -1
    //Form1.ComboBox2.Enabled = true
 ElseIf 主城 = "B" Then
    Form1.ComboBox2.List = "B1|B2|B3"
    Form1.ComboBox2.ListIndex = -1
    //Form1.ComboBox2.Enabled = true
 End If
End Event


Event Form1.ComboBox2.SelectChange
Dim 索引2，地图2
 索引2 = Split(Form1.ComboBox2.List,"|")   
 地图2= 索引2(Form1.ComboBox2.ListIndex)
    
 If 地图2 = "A1" Then 
    Form1.ComboBox3.List = "A11|A12|A13"
    Form1.ComboBox3.ListIndex = -1
    //Form1.ComboBox3.Enabled = true
 ElseIf 地图2 = "A2" Then 
    Form1.ComboBox3.List = "A21|A22|A23"
    Form1.ComboBox3.ListIndex = -1
    //Form1.ComboBox3.Enabled = true
 ElseIf 地图2 = "A3" Then 
    Form1.ComboBox3.List = "A31|A32|A33"
    Form1.ComboBox3.ListIndex = -1
    //Form1.ComboBox3.Enabled = true
    
    
 ElseIf 地图2 = "B1" Then 
    Form1.ComboBox3.List = "B11|B12|B13"
    Form1.ComboBox3.ListIndex = -1
    //Form1.ComboBox3.Enabled = true
 ElseIf 地图2 = "B2" Then 
    Form1.ComboBox3.List = "B21|B22|B23"
    Form1.ComboBox3.ListIndex = -1
    //Form1.ComboBox3.Enabled = true
 ElseIf 地图2 = "B3" Then 
    Form1.ComboBox3.List = "B31|A32|B33"
    Form1.ComboBox3.ListIndex = -1
    //Form1.ComboBox3.Enabled = true
    
 End If
End Event

Event Form1.ComboBox3.SelectChange
Dim 索引3，地图3
 索引3 = Split(Form1.ComboBox3.List,"|")   
 地图3= 索引3(Form1.ComboBox3.ListIndex)
    
 If 地图3 = "A11" Then 
    Form1.ComboBox4.List = "A111|A112|A113"
    Form1.ComboBox4.ListIndex = -1
    //Form1.ComboBox3.Enabled = true
 ElseIf 地图3 = "A12" Then 
    Form1.ComboBox4.List = "A121|A122|A123"
    Form1.ComboBox4.ListIndex = -1
    //Form1.ComboBox3.Enabled = true
 ElseIf 地图3 = "A13" Then 
    Form1.ComboBox4.List = "A131|A132|A133"
    Form1.ComboBox4.ListIndex = -1
    //Form1.ComboBox3.Enabled = true
    
 ElseIf 地图3 = "A21" Then 
    Form1.ComboBox4.List = "A211|A212|A213"
    Form1.ComboBox4.ListIndex = -1
    //Form1.ComboBox3.Enabled = true
 ElseIf 地图3 = "A22" Then 
    Form1.ComboBox4.List = "A221|A222|A223"
    Form1.ComboBox4.ListIndex = -1
    //Form1.ComboBox3.Enabled = true
 ElseIf 地图3 = "A23" Then 
    Form1.ComboBox4.List = "A231|A232|A233"
    Form1.ComboBox4.ListIndex = -1
    //Form1.ComboBox3.Enabled = true   
    
 ElseIf 地图3 = "A31" Then 
    Form1.ComboBox4.List = "A311|A312|A313"
    Form1.ComboBox4.ListIndex = -1
    //Form1.ComboBox3.Enabled = true
 ElseIf 地图3 = "A32" Then 
    Form1.ComboBox4.List = "A321|A322|A323"
    Form1.ComboBox4.ListIndex = -1
    //Form1.ComboBox3.Enabled = true
 ElseIf 地图3 = "A33" Then 
    Form1.ComboBox4.List = "A331|A332|A333"
    Form1.ComboBox4.ListIndex = -1
    //Form1.ComboBox3.Enabled = true