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.JPG'
WebBrowser1.Navigate _
'ABOUT:<IMG WIDTH=' & _
Largeur & ' HEIGHT=' & Hauteur & _
' SRC='' & S & '''
End Sub