test highlight

test Code:

Private Sub Command1_Click()
    
'    WEb.Navigate2 "C:\New Text Document (2).html"
    WEb.Document.All.Title.Value = "test"
    WEb.Document.All.site.Value = "test"
    WEb.Document.All.Description.Value = "test"
End Sub
 
Private Sub Form_Load()
    WEb.Navigate2 "C:\Documents and Settings\zeezee\Desktop\New Text Document (2).html"
End Sub

Code:

---

       

code Code:

       

Private Sub Command1_Click()
    
'    WEb.Navigate2 "C:\New Text Document (2).html"
    WEb.Document.All.Title.Value = "test"
    WEb.Document.All.site.Value = "test"
    WEb.Document.All.Description.Value = "test"
End Sub
 
Private Sub Form_Load()
    WEb.Navigate2 "C:\Documents and Settings\zeezee\Desktop\New Text Document (2).html"
End Sub[B][/B]

---

http://www.macrocats.com/images/uploads/mc10768.jpg

(test)