| 
    
     |  | >>Changeイベントは連鎖で影響が出るので余り使わないのですが 
 余り使わないと言うより、私としては使いたくないと言う方が正しかも?
 
 >とのことですが、連鎖する数が多くなったりすると影響が出たりするのでしょうか?
 
 何処にどう影響するか、気をつけていなければ、いけないと言う事です
 例えば、今回の物も、
 
 Private Sub ComboBox1_Change()
 
 '  If intFocus = 1 Then
 ComboBox2.ListIndex = ComboBox1.ListIndex
 '  End If
 
 End Sub
 
 Private Sub ComboBox2_Change()
 
 '  If intFocus = 2 Then
 ComboBox1.ListIndex = ComboBox2.ListIndex
 '  End If
 
 End Sub
 
 として見れば解ると思います
 結果としてどうなるかと言うと
 コンボボックスのListから選択する場合は、別に特に表面上、問題ないのですが
 ComboBox1のText部に入力した場合
 ComboBox1のListIndexは当然-1に成ります
 それを、ComboBox2のListIndexに入れるとComboBox2のListIndexも-1に成り
 Sub ComboBox2_Changeのイベントが起こり、ComboBox1のListIndexが-1に書き替えら
 れる為、入力中の文字列が消されてしまいます
 詰まり、文字列の入力が不可能という事態に成ります
 
 |  |