Writing my PowerPoint add-in into registry

[projectVBA]

Hi ,

I wrote some add in for PowerPoint and i'm trying to find an automatic way to load it every time PowerPoint starts.
I found Microsoft Code example (see below ) BUT the problem is :
I can't find all appear function declaration and VBA also errors regarding all the default variable values give in the code like ERROR_SUCCESS etc.
May be you can help me to make this code run??

 
Function RegisterAddin( _
      strBranch As String, _
      strAddinName As String, _
      strAddinPath, _
        fAutoLoad As Boolean) As Boolean
 
      ' Turn on error trapping.
      On Error GoTo RegAddinError
      Err.Clear
 
      ' Create the variable used in the call to RegCreateKeyEx().
      Dim lhkeyHive As Long
      Dim strSubKey As String
      Dim lhkey As Long
      Dim lDisp As Long
      Dim lReturnVal As Long
 
      ' Make the branch string all caps.
      strBranch = UCase(strBranch)
 
      ' Determine which branch of the registry to use.
      Select Case strBranch
         Case Is = "LOCAL"
            lhkeyHive = HKEY_LOCAL_MACHINE
         Case Is = "L"
            lhkeyHive = HKEY_LOCAL_MACHINE
         Case Is = "CURRENT"
            lhkeyHive = HKEY_CURRENT_USER
         Case Is = "C"
            lhkeyHive = HKEY_CURRENT_USER
         Case Else
            ' Passed in the wrong parameter, so use HKEY_LOCAL_MACHINE
            lhkeyHive = HKEY_LOCAL_MACHINE
      End Select
 
      ' Create the SubKey string.
      strSubKey = "Software\Microsoft\Office\8.0\PowerPoint\AddIns\" & _
         strAddinName
 
      ' Create or open the registry key.
      lReturnVal = RegCreateKeyEx( _
         lhkeyHive, _
         strSubKey, _
         0, _
         "", _
         REG_OPTION_NON_VOLATILE, _
         KEY_ALL_ACCESS, _
         vbNullString, _
         lhkey, _
         lDisp)
 
      ' See if error occurred when opening key.
      If (lReturnVal <> ERROR_SUCCESS Or lhkey = 0) Then
         RegisterAddin = False
         Exit Function
      End If
 
      'Add the path to the add-in to the registry.
      lReturnVal = RegSetValueEx( _
         lhkey, _
         "Path", _
         0&, _
         REG_SZ, _
         strAddinPath, _
         Len(strAddinPath))
 
      ' See if an error occurred when writing the registry key.
      If (lReturnVal <> ERROR_SUCCESS) Then
         RegisterAddin = False
         Exit Function
      End If
 
      ' Add the AutoLoad key if needed.
      If fAutoLoad = True Then
 
         'Add the path to the add-in to the registry.
         lReturnVal = RegSetDwordValueEx( _
            lhkey, _
            "AutoLoad", _
            0, _
            REG_DWORD, _
            &HFFFFFFFF, _
            4)
 
            ' See if an error occurred when writing the registry key.
            If (lReturnVal <> ERROR_SUCCESS) Then
               RegisterAddin = False
               Exit Function
            End If
 
      End If
 
      ' Close the registry key.
      lReturnVal = RegCloseKey(lhkey)
 
      ' See if error occurred when closing the registry key.
      If (lReturnVal <> ERROR_SUCCESS) Then
         RegisterAddin = False
         Exit Function
      End If
 
      ' All is well, so return true.
      RegisterAddin = True
 
      ' Exit the sub so that the code does not flow into
      ' the error handler.
      Exit Function
 
   ' Handle an add-in registration error.
RegAddinError:
      RegisterAddin = False
 
      ' Close the registry key if it is still open.
      If lhkey <> 0 Then
         RegCloseKey lhkey
      End If
 
   End Function
 
Function main()
 
 
    If (RegisterAddin("HKEY_CURRENT_USER", "First.ppa", "C:\Documents and Settings\Administrator\Application Data\Microsoft\AddIns", True) = True) Then
      MsgBox "It worked"
   Else
      MsgBox "it did not work"
   End If
   End Function
 
 
 

[Dököll]

Pushing this forward for all to see, good of you to add your code by the way...