コンボボックスのドロップダウンリスト項目数を変更しようと思い
SampleNo=149を使用させてもらいました。
しかし、フレームの中にコンボボックスを配置すると、
どうしてもうまくいきません。
（ドロップダウンリストがフォーム外に表示され、
　クリック後コンボボックスが消えてしまいます）
フレーム内に配置して正常に動作させることは可能でしょうか？

'＝＝＝＝＝　コンテナ上のコンボボックスの場合　＝＝＝＝＝
Private Sub Combo2_DropDown()
    'ドロップダウンリストの表示項目数を１２に設定
    Call sCBDropDownListItem1(Combo2, 12)
End Sub
Private Sub sCBDropDownListItem1(CBControl As Control, Item As Long)
    Dim CBHeight  As Long
    Dim Result    As Long
    Dim Ratio     As Long
    'ピクセルあたりのtwip 数を取得
    Ratio = Screen.TwipsPerPixelX
    With CBControl
        '項目の高さを取得
        CBHeight = SendMessage(.hwnd, CB_GETITEMHEIGHT, 0&, ByVal 0&)
        '１２項目表示する場合の高さを求める
        CBHeight = (.Height \ Ratio) + CBHeight * Item + 2
        'コンボボックスの高さを変更
        Result = MoveWindow(.hwnd, .Left \ Ratio, .Top \ Ratio, .Width \ Ratio, CBHeight, 1&)
    End With
End Sub

花ちゃんさん返信ありがとうございます。
正常に表示されるようになりました。

変更して下さったところを見て、
どうしてこうすれば正常に動くのか調べてみたいと思います。

また、分からないことが有れば、教えて下さい。
どうもありがとうございました。