С наступающим, уважаемые!

В форме нужно сделать так, чтобы по нажатию кнопки выбранным браузером открывалась страница сайта,
что-то по типу "Открыть с помощью.."

В модуль добавил:

Public 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

--------------------------------
В форму на нажатие кнопки:
Dim RetVal As Long
RetVal = ShellExecute(0, "open", "https://mySite", "", "", 1)
-------------------------------

А как сделать, чтобы в поле со списком можно было выбрать один из браузеров и он открыл страницу,
а если такого браузера нет,то появилось бы соответствующее сообщение?

http://www.sql.ru/forum/1281407/otkryt-stranicu-sayta