Открытие ссылки в новом окне браузера по умолчанию - VB

Формулировка задачи:

Доброго времени суток! Столкнулся с такой проблемой. пишу простенькую программку для открытия поочередного открытия ссылок в браузере по умолчанию(IE). Но вот столкнулся с такой проблемой: ссылки то открываются, но каждая в новой ВКЛАДКЕ, а нужно чтобы открытие каждой ссылки происходило в отдельном окне. Вариант вручную поменять настройки браузера не подходит, разве что поменять эти настройки из VB(не знаю как). Прошу помощи!

Private Declare Function ShellExecute Lib "shell32" _
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
 
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
ShellExecute 0, vbNullString, _
  "http://www.yandex.ru", vbNullString, _
  vbNullString, SW_SHOWNORMAL
 
Sleep 3000
ShellExecute 0, vbNullString, _
  "http://www.google.com", vbNullString, _
  vbNullString, SW_SHOWMAXIMIZED

Решение задачи: «Открытие ссылки в новом окне браузера по умолчанию»

textual
                            Листинг программы 
                        

                                Const navOpenInNewWindow = &H1
    
    Set ie = CreateObject("InternetExplorer.Application")
    
    Links = Array("http://www.google.com.ua/", "http://dmitriydudar.com.ua/", "http://www.membrana.ru/")
    
    ie.Visible = True '// поставьте false, чтобы не было видно браузера
 
    first = True
    For Each link In Links
        If first Then
            ie.Navigate2 link
            first = False
        Else
            ie.Navigate2 link, navOpenInNewWindow
        End If
    Next
                        