I'm trying to create an Add-In for this tool:

[Link to Google Maps and Bing from MXD (Streetview and Bird's Eye supported)](http://arcscripts.esri.com/details.asp?dbid=16735)

I'm not receiving an error however my browser is not opening after I select either the Yes or No option in the messagebox. Here is the code.

I'm using Windows7 and IE8.

```vb
Public Class StreetViewBirdsEye
    Inherits ESRI.ArcGIS.Desktop.AddIns.Tool

    Const SW_SHOWMAXIMIZED = 3
    Const SW_SHOWMINIMIZED = 2
    Const SW_SHOWDEFAULT = 10
    Const SW_SHOWMINNOACTIVE = 7
    Const SW_SHOWNORMAL = 1

    Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

    Public Sub New()

    End Sub

    Protected Overrides Sub OnUpdate()
        Enabled = My.ArcMap.Application IsNot Nothing
    End Sub

    Protected Overrides Sub OnMouseDown(ByVal arg As ESRI.ArcGIS.Desktop.AddIns.Tool.MouseEventArgs)

        MyBase.OnMouseDown(arg)

        Try

            My.ArcMap.Application.CurrentTool = Nothing

            Dim pMxDoc As IMxDocument
            Dim pMap As IMap
            Dim pPoint As IPoint
            Dim pSpatialReferenceFactory As ISpatialReferenceFactory
            Dim pSpatialReference As ISpatialReference

            Dim pApp As IMxApplication

            pApp = CType(Hook, IApplication)
            pMxDoc = CType(pApp.Document, IMxDocument)

            pMap = pMxDoc.FocusMap
            pApp = My.ArcMap.Application

            pSpatialReferenceFactory = New SpatialReferenceEnvironment
            pSpatialReference = pSpatialReferenceFactory. _
                CreateGeographicCoordinateSystem(esriSRGeoCSType.esriSRGeoCS_WGS1984)

            ' convert mouse click to map units
   pPoint = pApp.Display.DisplayTransformation.ToMapPoint(arg.X, arg.Y)
            pPoint.SpatialReference = pMap.SpatialReference
            If pPoint.SpatialReference.Name <> pSpatialReference.Name Then
                pPoint.Project(pSpatialReference)

            End If

            Dim URLstr As String = Nothing
            Dim returnLong As Long

            'more info on google map URL query string request setting parameters:
            'http://mapki.com/index.php?title=Google_Map_Parameters

            Dim webmapchoice

            webmapchoice = MsgBox("View this location in a browser?" & vbCrLf & vbCrLf _
            & "Click YES for BING Bird's Eye" _
            & vbCrLf & "Click NO for GOOGLE Street View" _
            & vbCrLf & vbCrLf & "or CANCEL to exit.", vbYesNoCancel, "Web Mapping Analysis")

            Select Case webmapchoice

                Case 6
                    URLstr = "http://www.bing.com/maps/default.aspx?v=2&cp=" & _
                    pPoint.Y & "~" & pPoint.X & "&lvl=/8&style=o&dir=0"
                    ' goto http://www.bing.com/community/blogs/maps/archive/2008/04/10/live-search-maps-api.aspx
                    ' for additional parameters to enter for Bing Maps

                Case 7
                    URLstr = "http://www.google.com/maps? ie=UTF8&layer=c&cbll=" & _
                    pPoint.Y & "," & pPoint.X & "&cbp=11,0,,0,5&ll=" & pPoint.Y _
                    & "," & pPoint.X & "&z=16"

                Case 2
                    Exit Sub

            End Select

            'Use one of the constants as the window state parameter
            returnLong = OpenLocation(URLstr, SW_SHOWNORMAL)

        Catch ex As Exception
            MessageBox.Show("Caught an unspecified error in the calling code: " & vbCrLf & ex.ToString)
        End Try

    End Sub

    Private Function OpenLocation(ByVal URL As String, ByVal WinState As Long) As Long

        Try
            'PURPOSE: Opens default browser to display URL

            'RETURNS: module handle to executed application or
            'Error Code ( < 32) if there is an error

            'can also be used to open any document associated with
            'an application on the system (e.g., passing the name
            'of a file with a .doc extension will open that file in Word)

            Dim lHWnd As Long
            Dim lAns As Long

            lAns = ShellExecute(lHWnd, "open", URL, vbNullString, _
            vbNullString, WinState)

            OpenLocation = lAns

            'ALTERNATIVE: if not interested in module handle or error
            'code change return value to boolean; then the above line
            'becomes:

            'OpenLocation = (lAns > 32)

        Catch ex As Exception
            MessageBox.Show("Caught an unspecified error in the calling code: " & vbCrLf & ex.ToString)
        End Try

    End Function

End Class

```

Maybe this is not coded to open IE8? 

Any ideas of what needs updated?