はじめましてTAKといいます．
WebBrowserコントロールについて質問があるのですが，
WebBrowserコントロールであるホームページを表示させ
テキストボックスに『１』と表示させます．
その後，ハイパーリンクで他のページに飛んだときに，
テキストボックスを『２』という風に，ページをハイパーリンクで飛ぶたびに
変数を１ずつ増やしていきたいのですが，
このようなプログラムはどのように書くのでしょうか？
質問だらけですみません．お願いします．

もっといい方法があるかも知れませんが、下記でも一応取得できるようです。
但し、フレームのページの場合はフレーム数になるようです。
他のイベント等でも試して見て下さい。

Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
    Text1.Text = CLng(Text1.Text) + 1
End Sub

花ちゃん早い返信ありがとうございました．
言われたとおりにしてみたところ，無事に動きました．
ただ，フレームのページはだめですねぇ・・・
でも，とても助かりました．
ありがとうございます．