Buscando una solución es tomando los registros:
Cita: Dim key As Microsoft.Win32.RegistryKey
key = Microsoft.Win32.Registry.ClassesRoot.OpenSubKey("h ttp\shell\open\command")
Dim name As String = CType(key.GetValue("(Predeterminado)"), String)
Esperando otra solución??? :)