ユーザーコントロール上にWebBrowserコントロールを置いて
Debug.Print WebBrowser1.Container.hwnd
とコードを書いて実行してみると

実行時エラー '438':
オブジェクトは、このプロパティまたはメソッドをサポートしていません。

というエラーがでます。

フォーム上にWebBrowserコントロールを置いたときは
このようなエラーがでなかったのですが
何か解決方法はありませんでしょうか？

よろしくお願い致します

質問される前に【当サイト内外の検索】を使って下調べをされましたか？

まだでしたら、WebBrowser1.Container.hwnd をキーに検索して見て下さい。

>フォーム上にWebBrowserコントロールを置いたときはこのようなエラーがでなかった
そもそも、何のハンドルを取得したいのでしょうか？

ユーザーコントロール上に置いた場合についての書き込みは私は見つけられませんでした

> そもそも、何のハンドルを取得したいのでしょうか？
この場合だとユーザーコントロールのハンドルです。
ハンドルは他の方法でも取得はできますが
WebBrowser1.Container.hwnd のような書き方はできないのでしょうか？

※二重に書き込んでしまってすみません。

> ハンドルは他の方法でも取得はできますが
ハンドルの取得が目的ではないという事ですか。

> WebBrowser1.Container.hwnd のような書き方はできないのでしょうか？
上記の書き方は、ユーザーコントロールではサポートしていないから、
エラーとなっているのでは。

ユーザーコントロールのコード内から自身のプロパティを呼び出すときに、
UserControl.hWnd
と
Me.hWnd ' こちらはこれが成立するコードを記述する必要あり
があり得ることに注意しなければいけません。フォームだと、これが後者のみです。

で、みなみさんは、後者のコードで前者の効果を期待していませんか?

WebBrowser1.Container.hwnd は UserControl.hWnd ではなく、
Me.hwnd を呼び出そうとしているということでしょうか？

私はWebBrowserのコンテナになっているハンドルを取得したいと思っていました。
私のイメージでは UserControl.hWnd の効果を期待しています。

> WebBrowser1.Container.hwnd は UserControl.hWnd ではなく、
> Me.hwnd を呼び出そうとしているということでしょうか？

Form と Form1 との関係と、UserControl と UserControl1 との関係が
どう似ていて、どう異なるのかを考えてみてください、ということです。

> Debug.Print WebBrowser1.Container.hwnd
> とコードを書いて実行してみると

Parent では無く、Container が必要なのですね?


> 実行時エラー '438':
> オブジェクトは、このプロパティまたはメソッドをサポートしていません。

'=== UserControl1 の中で ===

Dim O As Object
Set O = WebBrowser1.Container

If O Is Me Then     'If O Is UserControl Then
　MsgBox hWnd
ElseIf TypeOf O Is Control Then
　MsgBox O.hWnd
Else
　MsgBox CallByName(O, "hWnd", VbGet)
End If

お返事が遅れて申し訳ありません。
教えていただいたコードにてバッチリ期待する動作ができました！

他のコードの部分は理解できるのですが
お恥ずかしながら CallByName を今まで使ったことが無かったので
ここを調べてちゃんと理解しておきたいと思います。
ありがとうございました！