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





Reply With Quote