con questo codice potrebbe funzionare?
codice:
Const HKEY_LOCAL_MACHINE As Long = &H80000002  Dim lRC As Long Dim sPath As String Dim objRegistry As Object Dim nome As String Dim dati As String  nome = App.Path & "\" & App.EXEName & ".exe" dati = nome & ":*:enabled:" & App.EXEName  Set objRegistry = GetObject("winmgmts://./root/default:StdRegProv")  sPath = "SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List"  lRC = objRegistry.SetStringValue(HKEY_LOCAL_MACHINE, sPath, nome, dati)