do
Set Hh = CreateObject("Internet.HHCtrl")
Hh.TextPopup " ","",2000, 2000, 1, 1
loop