كلمات تتحرك داخل الفورم باستخدام WebBrowser

كلمات تتحرك داخل الفورم باستخدام
WebBrowser

الاكواد

الكود:: الاداة
WebBrowser1
------
Option Explicit
Public LeTexte As String
Public LaCouleur As String
---
Private Sub UserForm_Initialize()
LeTexte = Sheets("magdi").Range("a1").Text
LaCouleur = "#990000"
ParametresHtml
End Sub
Sub ParametresHtml()
UserForm3.WebBrowser1.Navigate _
"about:<html><body scroll='no'><font color= " & LaCouleur & " size='8' face='NEW'>" & _
"<marquee>" & LeTexte & "</marquee></font></body></html>"
End Sub