Attribute VB_Name = "InternetModule"
'This library file written by Alex Vallat.  Contact me at my homepage at http://www.ByAlexV.co.uk
'
'This module is for shelling out an internet address (or anything else, really,
'but it is usefull for internet use)
'
Option Explicit
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 LinkTo(Address As String, ParentForm As Form)
'Address is the address to link to, such as http://www.comports.com/AlexV, or mailto:AlexV@ComPorts.com
'ParentForm is the form calling the procedure which will recieve any message boxes.
    Dim Result As Long
    Result = ShellExecute(ParentForm.hwnd, "open", Address, "", "", 1)
    If Result <= 32 Then Err.Raise 17
End Sub