Private Sub UserForm_Initialize()
Dim S As String
Dim Hauteur As Long, Largeur As Long
Largeur = WebBrowser1.Width * 96 / 72
Hauteur = WebBrowser1.Height * 96 / 72
S = 'C:\\Documents and Settings\\michel\\dossier\\fourmiz.GIF'
WebBrowser1.Navigate _
'ABOUT:<HTML><CENTER><HEAD><body scroll='no' LEFTMARGIN=0 TOPMARGIN=0><IMG WIDTH=' & _
Largeur & ' HEIGHT=' & Hauteur & _
' SRC='' & S & ''</IMG></BODY></CENTER></HTML>'
End Sub