はじめましていつも拝見させていただいています。
早速ですがここに掲載されている
【コンボボックスのドロップダウンリストを表示】
を活用したいと考えていますが
開く動作を
Private Sub Command1_Click()　ではなく　Private Sub Combo1_Change()
で動作させると
リスト表示されたあとのマウスカーソルが消えてしまいます。
何か良い解決方法はないでしょうか？？
宜しくお願いします。

別に消えませんが、どのように書いているのですか？
他に何か処理していませんか？
下記だけのシンプルなテストコードで試して見て下さい。

そのような事が起きるなら再現できるコードを投稿して下さい。
そもそも、通常の Combo1_Change イベントで起きている状態そのもので
ドロップダウンの操作とは関係ない事ではないのですか？
下記の操作をコメントにしても同じ状態ではありませんか？

Private Sub Combo1_Change()
   Call SendMessage(Combo1.hWnd, CB_SHOWDROPDOWN, 1&, ByVal 0&)
End Sub

> リスト表示されたあとのマウスカーソルが消えてしまいます。

こんなのがありました。
直接的な関係は無いかも知れませんが、間接的には関係あるかも。

http://forums.microsoft.com/MSDN-JA/ShowPost.aspx?PostID=1299081&SiteID=7
http://support.microsoft.com/kb/418696/ja

> > リスト表示されたあとのマウスカーソルが消えてしまいます。
>
> こんなのがありました。
> 直接的な関係は無いかも知れませんが、間接的には関係あるかも。
>
> http://forums.microsoft.com/MSDN-JA/ShowPost.aspx?PostID=1299081&SiteID=7
> http://support.microsoft.com/kb/418696/ja

私は、非表示になっていたので、解らなかったのですが上記を試したら
同様ですね。

下記なら消えないようです。
Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
   Call SendMessage(Combo1.hWnd, CB_SHOWDROPDOWN, 1&, ByVal 0&)
End Sub

> 下記なら消えないようです。
> Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
>    Call SendMessage(Combo1.hWnd, CB_SHOWDROPDOWN, 1&, ByVal 0&)
> End Sub

花ちゃんさん、魔界の仮面弁士さん
早々のレスありがとうございます。
上記回答のようにChangeイベントではなくKeyDownイベントを使用させていただかせたところ
マウスカーソルは消えず、思い通りの動作をさせることができました。
無事に解決できお二人には感謝しています。
また何かと参考にさせていただきたいと思いますが、何かあった時にはまた宜しくお願いします。