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