- Код: Выделить всё
Private mDoc As HTMLDocument
Private Sub Command1_Click()
WebBrowser.Navigate "res://mshtml.dll/blank.htm"
While WebBrowser.ReadyState <> READYSTATE_COMPLETE
DoEvents
Wend
Set mDoc = WebBrowser.Document
mDoc.bgColor = RGB(255, 0, 0)
End Sub