ひょんなことから、VB6 Combobox(入力も出来るほう)のTextプロパティに、半角&記号が表示されない件を調査中。

=5/25 下記のような結果となった。=

Private Sub Form_Load()
    Combo1.Text = "ABC& DEF&" 'ABC DEF
    Combo1.Text = "ABC& DEF& HIJ&" 'ABC DEF HIJ&
    Combo1.Text = "ABC&& DEF&&" 'ABC&& DEF&&
    Combo1.Text = "ABC& DEF" 'ABC& DEF
    Combo1.Text = "ABC DEF&" 'ABC DEF&
    Combo1.Text = "&ABC &DEF" 'ABC DEF
    Combo1.Text = "&ABC&DEF" 'ABCDEF
    Combo1.Text = "ABC & DEF & HIJ & KLM &" '最初の2こがばける
    Combo1.Text = "& ABC & DEF & HIJ & KLM &" '最初の2こがばける
    Combo1.Text = "&& ABC & DEF & HIJ & KLM &" '最初の2こはOK、次の2こがばける
    Combo1.Text = "& & ABC & DEF & HIJ & KLM &" '最初の2こがばける
End Sub

どうやら、単独で表れる最初の2つの&が化けるという、何とも奇異なバグみたい。
http://www.webdb.co.jp/~atsumi/bpb/

1つ目の&が0x1Eに、2つ目の&が0x1Fに、それぞれ化ける。
しかも表示だけ。参照すると元の値が取れる。
なんで?

で、回避策。
http://hpcgi1.nifty.com/MADIA/VBBBS/wwwlng.cgi?print+200403/04030026.txt

Textプロパティの替わりに、SelTextプロパティで代用してみてください。

VB6は、もうオープンソースにしたらどうでしょう?十分に元はとれてるはずですよね?Micro$oftさん。