Dim objShellWins As SHDocVw.ShellWindows

Dim objIE As SHDocVw.InternetExplorer
Dim buf As String * 1024
Dim title As String
Dim length As Long
Dim txt As String

Dim objDoc As Object
Dim i As Integer
Dim strOut As String
Dim intFree As Integer
Set objShellWins = New SHDocVw.ShellWindows

' If objIE.LocationURL <> "http://www.physician-to-go.net/" Then
' objIE.Navigate2 ("http://www.physician-to-go.net/")
'
'End If

For Each objIE In objShellWins
length = GetWindowText(objIE.hWnd, buf, Len(buf))
title = Left$(buf, length)
If InStr(title, " - Microsoft Internet Explorer") > 0 Or InStr(title, " - Windows Internet Explorer") > 0 Then

objIE.AddressBar() = False
a = InStr(1, objIE.LocationURL, "www.yahoo.com")
If a = 0 Then

objIE.Navigate2 ("www.yahoo.com")

Else
'
End If
End If
Next objIE

so that is my code.It works fine with IE but how about other browsers like netscape,mozilla.I want to handle browsers I dont want to make user web browser.Please any help?