コンボボックスを連動させるには？ (ID:109356)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ふたつのコンボボックスを連動させたいと思い、以下のように書いてみました。 しかしCombo2の中身が変わってくれません。 何が間違っているのでしょうか？ ついでにお聞きしますが、コンボボックスに新規の項目を入力させたくありません。 どうすれば入力をさせないようにすることができるのでしょうか？ Private Sub Combo1_Change() Select Case Combo1.ListIndex Case 0: Combo2.Clear Combo2.AddItem "あ0", 0 Combo2.AddItem "あ1", 1 Combo2.ListIndex = 0 Case 1: Combo2.Clear Combo2.AddItem "い0", 0 Combo2.AddItem "い1", 1 Combo2.ListIndex = 0 Case 2: Combo2.Clear Combo2.AddItem "う0", 0 Combo2.AddItem "う1", 1 Combo2.ListIndex = 0 Case Else: Combo2.Clear End Select End Sub Private Sub Form_Load() Combo1.AddItem "あ", 0 Combo1.AddItem "い", 1 Combo1.AddItem "う", 2 Combo1.ListIndex = 0 Combo2.AddItem "あ0", 0 Combo2.AddItem "あ1", 1 Combo2.ListIndex = 0 End Sub