Cómo abrir automáticamente enlaces en páginas web en vb

Agregue un cuadro de texto texto1 en el formulario 1 y un botón comando1. Esto se puede lograr con la siguiente declaración:

Función de declaración privada ShellExecute Lib "shell32.dll" Alias ​​​​"ShellExecuteA" (ByVal hwnd As Long , ByVal lpOperation como cadena, ByVal lpFile como cadena, ByVal lpParameters como cadena, ByVal lpDirectory como cadena, ByVal nShowCmd como larga) como larga

Sub OpenUrl privada (tUrl como cadena)

ShellExecute Me.hwnd, "Open", tUrl, 0, 0, 0

End Sub

Subcomando privado1_Click ()

str_open = Text1.Text

p>

OpenUrl (str_open)

Fin Sub