'===========================================================================
' 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