ＣｏｍｂｏＢｏｘにて (ID:122523)

名前

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

本文 ComboBoxのリストは先ほどお伝えした通りListプロパティで設定で 設定できませんでしたか？ Private Sub Combo1_Click() ' Combo1.Text = "ABCD" DoEvents '←ステップ実行にてここまでは表示されます End Sub '←イベントを抜けるのと同時に消えてしまいます Private Sub Form_Load() Dim i As Integer Combo1.Text = "" ' For i = 0 To 9 ' Combo1.AddItem Str(i) ' Next End Sub この状態でもう一度試した見てください。