ComRegisterFunction & Registry

[mickey_pt]

Hello

In the past 2 hours i have been trying to figure out what i'm doing wrong in the function that i'm using to write some values into the registry.

I have this code, but in the end i can't see the new key in the registry.

<ComRegisterFunction()> _
        Private Shared Sub RegistarCOM(ByVal t As Type)
            Dim keyPath As String = String.Format("SOFTWARE\SolidWorks\AddIns\{0:b}", t.GUID)
            Using rk As RegistryKey = Registry.LocalMachine.CreateSubKey(keyPath)
                rk.SetValue(Nothing, 1) 
                rk.SetValue("Title", "Testing") 
                rk.SetValue("Description", "Why this doesnt work") 
                rk.Flush() 
                rk.Close() 
            End Using
        End Sub