いつもお世話になっています，ＴＡＫと言います．

今回も質問をさせていただきたいのですが，
WebBrowserコントロールで表示されているホームページの縦や横の長さを取得する事は
可能なのでしょうか？
WebBrowser1.HeightやWebBrowser1.Widthではそのまま画面に表示されている範囲の縦・横の
長さしか取得する事が出来ないので・・・

例えば，Yahoo!などのページをWebBrowserで表示するとスクロールバーが出来る為，
実際の表示されている縦の長さは長くなると思うのですが，
フォントの大きさや画面の状況によって値は変化すると思うのですが，
WebBrowser1_DocumentCompleteなどのプロシージャでWebページの読み込みを終了したら，
ページ全体の縦・横の長さを取得してテキストボックスに表示するといった処理をしたいです．

毎回毎回質問ばかりですみません．
よろしくお願いします．

Documentプロパティで取得したオブジェクトに対して、
IViewObjectEx.GetNaturalExtentメソッドを呼び出して
みれば、できることがあるかも知れません。
# とは言っても、無効な値を返すことのが多いと思われます。

こういうのではダメですか？

    Dim myDoc As Object
    Set myDoc = WebBrowser1.Document
    Debug.Print myDoc.body.scrollHeight
    Set doc = Nothing

見当違いならすいません。

Ｋ.Ｊ.Ｋ.さん，これさんありがとうございます．
Ｋ.Ｊ.Ｋ.さんの説明して頂いた方法ですと，やはり無効な値が返されてしまうので，
これさんの説明して頂いた方法を使わせてもらいました．
どうもありがとうございました．