【良回答には1,000ポイント送信します】

VB.NT(VisualBasic2008Express)のSubを書いてください。本当に困っています。同かよろしくお願い申し上げます。

ByVal wbToTry As System.Windows.Forms.WebBrowser,
ByVal strUrl As String,
ByVal intWaitTimeBySecForCompleted As Integer,
ByVal intWaitCountOfCompleted As Integer,
ByRef intCountOfCompleted As Integer,
ByRef strNormalFinishOrErrorFinish

を受け取り、次のような挙動をする。

(1) wbToTry で、strUrl に格納されたURLを表示しようと試み、
(2) intWaitTimeBySecForCompleted に格納された数値の秒数だけ DocumentComleted イベントが発生するのを待つ。
(3) もし intWaitTimeBySecForCompleted の時間内に、wbToTry で DocumentCompleted イベントが発生したら、intCountOfCompleted に 1 を足すとともに、intWaitCountOfComplete から 1 を引く。
(4) もし、intWaitCountOfComplete が 0 に達していなかったら、(2)に戻り、もし達していたら、strNormalFinishOrErrorFinish に "Normal" を代入して、Subを出る。
(5) intWaitTimeBySecForCompleted の時間内に、wbToTry で DocumentCompleted イベントが発生しなくなったら、strNormalFinishOrErrorFinish に "Normal" を代入して、Subを出る。
(&) 上記の最中、もし、エラーが発生したら、strNormalFinishOrErrorFinish に "Error" を代入して、Subを出る。