/ Snippet Library - View Code

Snippet details

ID: 374

Viewed: 1337

Added: 2002-08-19

Version:

Snippets in this catagory
Show Printable Version

Shell to web address via default web browser (32-bit only)

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Unknown

Snippet By:	Unknown
Declarations
Highlight Allnone
Code
Highlight All'Put this in the click event of a control Dim iRet As Long Dim Response As Integer Response = MsgBox("You have chosen 'www.rxkinetics.com', " & vbCrLf & "which will launch your web browser and" & vbCrLf & "point you to the Kinetics web site." & vbCrLf & vbCrLf & "Do you wish to continue?", vbInformation + vbYesNo, "www.rxkinetics.com") Select Case Response Case vbYes iRet = Shell("start.exe http://www.rxkinetics.com", vbNormal) Case vbNo Exit Sub End Select

No Reviews to show