Originariamente inviato da icecube_HT
....stasera vedro' di risolvere il problema...
Prima del tramonto !

Ecco il codice del Form1:
codice:
Option Explicit

Private Sub Form_Load()
   WB.Top = 0
   WB.Left = 0
   WB.FullScreen = True
   Me.Caption = ""
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
   FINE = True
End Sub

Private Sub Form_Resize()
   WB.Width = Me.Width - 100
   WB.Height = Me.Height - 500
End Sub
e quello del modulo:
codice:
Option Explicit
Public FINE As Boolean

Sub main()
   On Error Resume Next
   Load Form1
   With Form1
      .WB.Silent = True
      .WB.Navigate "www.html.it"
      .Show vbModeless
      Do
         DoEvents
      Loop Until FINE
   End With
End Sub