Snippet Library

none

'Put this code in the click event of a control

   Dim iRet As Long    
   Dim Response As Integer

   Response = MsgBox("You have chosen 'E-mail', which will" & vbCrLf & "launch your default e-mail program." & vbCrLf & vbCrLf & "Do you wish to continue?", vbInformation + vbYesNo, "E-mail")
   Select Case Response
     Case vbYes
         iRet = Shell("start.exe mailto:ricktharp@rxkinetics.com", vbNormal)
     Case vbNo
       Exit Sub
   End Select;