いつもお世話になっております。

昨日のopenのUnicode対応に引き続き、コントロールをUnicode対応させています。
現在ComboBoxExをAPIで作っていて、AdditemをUnicode対応させようとしています。
COMBOBOXEXITEMに値を入れてSendmessageWすればいいのかなと思うのですが、
COMBOBOXEXITEMの宣言で悩んでいます。

Public Type COMBOBOXEXITEM
    mask    As Long
    iItem   As Long
    pszText As String
    cchTextMax  As Long
    iImage  As Long
    iSelectedImage  As Long
    iOverlay    As Long
    iIndent As Long
    lParam  As Long
End Type

ここの pszText を変えなければいけないのかと思うのですが、
どう変えればいいのでしょうか？
ご存知の方いらっしゃれば教えて下さい、よろしくお願い致します。

試していないので保証は出来ませんが、
　Dim b() As Byte
　b = strUnicode
　Dim x As COMBOBOXEXITEM
　x.pszText = VarPtr(b(0))
か
　x.pszText = StrPtr(strUnicode)
でどうでしょう。

あるいは下記の『APIとの文字列のやりとり（ANSI vs UNICODE変換）』あたり。
http://homepage3.nifty.com/numericworld/computer/vb/memo.htm

お返事ありがとうございます。
試してみました。

結果はニイハオの後に改行文字みたいなのが付加されました。
strPtr(s)に変えたらニイハオが中国語でちゃんと表示できました。

これでいろいろ文字入れてしばらく様子をみてみます。
いつもありがとうございます！