OS:Win2000 VB6.0

コンボボックス(Combo1)一つ付けただけのサンプルで

Private Sub Combo1_Click()
With Combo1
.Clear
.AddItem "111"
.AddItem "222"
.AddItem "333"
.Text = "111" '** これが表示されない
End With
End Sub

Private Sub Form_Load()
With Combo1
.AddItem "AAA"
.AddItem "BBB"
.AddItem "CCC"
.Text = "AAA"
End With
End Sub

仕様ですか？