Perhaps...
Function bGoogleEarthAvailable() As Boolean
Dim x As Object
On Error Resume Next
Set x = CreateObject("Google Earth.Application") 'edit to suit
bGoogleEarthAvailable = (Err = 0)
x.Quit: Set x = Nothing
End Function
Usage example:
If bGoogleEarthAvailable Then DoSomething Else Do SomethingElse
--
Garry
Free usenet access at
http://www.eternal-september.org
ClassicVB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.
vb.general.discussion