コンボボックスで「Style 2」を選択した際の、初期値って
設定できないんでしょうか？

> コンボボックスで「Style 2」を選択した際の、初期値って
> 設定できないんでしょうか？

リスト内に登録されてある値であれば、普通に初期値を設定できますよ。

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

リスト内にない場合（下のような場合）は、エラーになります。

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

ごめんなさい、質問の仕方が悪かったです。
表示される際に、最初に１つ何か入れておきたいのです。
「Style 2」にするとTextに値が入れられないので、最初何も表示されませんよね？
それを何か選択済みにするか、もしくは、値を入れておく方法は無いものかと悩んでいます。
よろしければ、またレス下さい。
失礼致しました。

> ごめんなさい、質問の仕方が悪かったです。
> 表示される際に、最初に１つ何か入れておきたいのです。
> 「Style 2」にするとTextに値が入れられないので、最初何も表示されませんよね？
> それを何か選択済みにするか、もしくは、値を入れておく方法は無いものかと悩んでいます。
> よろしければ、またレス下さい。
> 失礼致しました。

listindexを設定すればできると思います。

    Combo1.AddItem "あいうえお"
    Combo1.AddItem "かきくけこ"
    Combo1.ListIndex = 1

のようにすれば、できるとおもうのですが・・・
見当ちがいのことを言っていたらすみません。

質問内容からするととろさんの回答でいいと思うのですが？
へるさんの回答も結果は同じです。
頂いた回答を本当に試されたのでしょうか？
試されたのなら、再度どのようにしたいのか詳しく書いてください。
No.4190　や No.4193 の質問内容なら答えは同じです。

> 表示される際に、最初に１つ何か入れておきたいのです。
> 「Style 2」にするとTextに値が入れられないので、最初何も表示されませんよね？

もしかして、なにも値が AddItem されていない状態で
初期値を表示させたいということですか？
Style = 2 の場合、リスト内の値しか表示できないので、無理です。

> > 表示される際に、最初に１つ何か入れておきたいのです。
> > 「Style 2」にするとTextに値が入れられないので、最初何も表示されませんよね？
>
> もしかして、なにも値が AddItem されていない状態で
> 初期値を表示させたいということですか？
> Style = 2 の場合、リスト内の値しか表示できないので、無理です。

でも、それって　初期値だけは表示させたいのだからやはりこうなるのでは
Private Sub Form_Load()
  Combo1.AddItem "AAA"
  Combo1.Text = "AAA"
End Sub

皆さんの指摘していただいた方法で、解決できました。
有り難うございました。

言い訳にしかなりませんが、質問に至った経緯を書いておきます。

・「かんたんプログラミングＶｉｓｕａｌＢａｓｉｃコントロール・関数編」
というのを読みながら、プログラムを組んでいたのですが、P.162にプロパティの
取得の方法は書かれていたけど、設定の方法が書いていなかったため、
何か特別なことしなければならないのかと、思い込んでいた。

・同P.169の注意書きで「Textプロパティによる値の設定は出来ません」と書いてあり、
解釈の仕方を誤った。

以上です。
お騒がせしました。