'===========================================================================
' Subject: LAUNCH DEFAULT BROWSER WITH URL   Date: 02-12-99 (14:34)       
' Author:  Tony Jones                        Code: VBWIN                  
' Origin:  CapeCanaveral/Lab/1961/         Packet: VBWIN.ABC
'===========================================================================

Private Sub mnuWeb_Click()
    ThisApp = <"Title of App>
    ThisVer = <"Version of App">
    Dim iRet As Long
    
    Dim response As Integer
    response = MsgBox("You have chosen 'Visit Website', which will launch_
    your Browser and take you to Southern Cross web site." & vbCrLf & "" &_
vbCrLf & "Do you wish to continue?", 4, ThisApp & ThisVer)
    Select Case response

    ' Yes response.
      Case vbYes:
        iRet = ShellExecute(Me.hwnd, vbNullString,_
"http://www.geocities.com/CapeCanaveral/6740/index.html", vbNullString,_
"c:\", SW_SHOWNORMAL)
    ' No response.
      Case vbNo:
        Exit Sub
    End Select
    
End Sub


'Tony Jones - Queensland, Australia - ICQ UIN 209530
'Email: tvtech@homemail.com
'Visit: Southern Cross Visual Basic Code and Links - Simply...the best in
'VB!
'       http://www.geocities.com/CapeCanaveral/6740/index.html