in realtà ho provato ad abilitare il desktop con il seguente codice

Private Sub ProjectInstaller_AfterInstall(ByVal sender As Object, ByVal e As System.Configuration.Install.InstallEventArgs) Handles Me.AfterInstall

Dim ckey As RegistryKey = Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentCo ntrolSet\Services\MyServiceName", True)
If ckey.GetValue("Type") IsNot Nothing Then
ckey.SetValue("Type", (ckey.GetValue("Type") Or 256))
End If


End Sub

ma non funziona ugualmente