あれから色々テストして見ました。
No.2604 で<後編集>で解説して頂いたのですが、私の環境では
(Win98/WinXP VB6.0)フォームのバックカラーも変わってしまい
ます。（最初の説明でよかったかと思います。）
GetBkColorで取得したRGB値をMe.BackColor = GetBkColor(Me.hdc)
のようにしておけば<後編集>での解説のようにはなります。
従って、最初に教えて頂いたように条件分けするようにしました。

>   Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
>      Set HStyl = pDisp.document.body.style
>             ：
>   En Sub

この使い方については私の理解不足か設定が反映されませんでしたので
フラグを立てイベントが発生するまで待機する方法にしました。

ご迷惑をお掛けしましたが、近々修正版をUP致します。

テストしていて気が付いたのですが、同じWebBrowserコントロール上に
１個しか表示が出来ないのですが？何か方法をご存知の方がおられましたら
ご教授願います。

すみません。なんか混乱を招くような発言をしてしまったようで。。。m(_ _;)m

> テストしていて気が付いたのですが、同じWebBrowserコントロール上に
> １個しか表示が出来ないのですが？何か方法をご存知の方がおられましたら

これは複数の画像ファイルを、1つのWebBrowserに表示する、という事でしょうか。
その場合は、
  WebBrowser1.Navigate2 "about:blank"
として、空のドキュメントを作成した後、
  WebBrowser1.document.write "<img src='" & File1 & "'>"
  WebBrowser1.document.write "<img src='" & File2 & "'>"
という手があります。

あるいはDOMを使って、
    Set doc = WebBrowser1.Document
    Set img1 = doc.createElement("IMAGE")
    Set img2 = doc.createElement("IMAGE")
    img1.src = File1
    img2.src = File2
    Set body = doc.body
    body.insertAdjacentElement "beforeEnd", img1
    body.insertAdjacentElement "beforeEnd", img2
のような事もできます。


位置制御もしたいのであれば、styleプロパティなどを設定するか、
TABLEエレメントを使って配置するようにすると良いかも。

色々、ありがとうございました。お陰さまで少し解ってきました。