¿Cómo abrir un archivo .url local en el control del navegador web de VB?

Mire el siguiente código: 'Método de llamada del programa

'WebBrowser1.Navigate?GetURL (ruta de acceso directo)?

'Obtenga la función vinculada en el URL

¿Pública?Función?GetURL(ByVal?urlPath?As?String)?As?String

Dim?FileNum?As?Integer

Dim?Id ? As?String

Dim?Tem?As?String

Id?=?"[InternetShortcut]"'En el archivo URL, este es un identificador. Debajo de esta oración está el. Dirección URL

FileNum?=?FreeFile()

¿Abrir?urlPath?For?Input?As?#FileNum

Línea?Input?#FileNum,? Tem

Si?Tem?=?Id?Then'Obtener el identificador

Línea?Input?#FileNum,?Tem'La siguiente línea leída es la dirección

GetURL?=?Right(Tem,?Len(Tem)?-?4)'Eliminar la URL= en el encabezado de la dirección, es decir, eliminar 4 caracteres

Cerrar?#FileNum

¿Salir?Función'Salir de la función

¿Fin?Si

Cerrar?#NúmArchivo

'Si no se obtiene la dirección, especifique una el predeterminado aquí

GetURL?=?"about:blank"

Fin?Función