Системное программирование. Создание вкладки в свойствах.

'Module1 (проект ActiveX DLL с пустым Class1)
Option Explicit
Public TerminalID As Long
 
'cpl
Public Type tagCPLINFO
    idIcon As Long
    idName As String
    idInfo As String
    lpData As Long
End Type
 
Public Enum CPL
    CPL_INIT = 1
    CPL_GETCOUNT = 2
    CPL_INQUIRE = 3
    CPL_SELECT = 4
    CPL_DBLCLK = 5
    CPL_STOP = 6
    CPL_EXIT = 7
    CPL_NEWINQUIRE = 8
End Enum
 
Public Type tagNEWCPLINFO
    dwSize As Integer
    dwFlags As Integer
    dwHelpContext As Integer
    lpData As Long
    hIcon As Long
    szName As String
    szInfo As String
    szHelpFile As String
End Type
'
Public Const DLL_PROCESS_DETACH = 0
Public Const DLL_PROCESS_ATTACH = 1
Public Const DLL_THREAD_ATTACH = 2
Public Const DLL_THREAD_DETACH = 3
 
Public Function DllMain(hInst As Long, fdwReason As Long, lpvReserved As Long) As Boolean
   Select Case fdwReason
      Case DLL_PROCESS_DETACH
         ' No per-process cleanup needed
      Case DLL_PROCESS_ATTACH
         DllMain = True
      Case DLL_THREAD_ATTACH
         ' No per-thread initialization needed
      Case DLL_THREAD_DETACH
         ' No per-thread cleanup needed
   End Select
End Function
 
'CSEH: ErrLog
Public Function CPlApplet(ByVal hwndCPl As Long, ByVal uMsg As Long, ByVal lParam1 As Long, ByVal lParam2 As Long) As Long
    '<EhHeader>
    On Error GoTo err_debug
    '</EhHeader>
 
100     CPlApplet = 0
 
110     Select Case uMsg
    
            Case CPL_INIT
        
120             mError.TraceMode = True
130             mError.StartLog
        
140             CPlApplet = 1
            
150         Case CPL_GETCOUNT
        
160             CPlApplet = 1
 
            Case CPL_INQUIRE
                
                CPlApplet = 1
            
            Case CPL_NEWINQUIRE
                
                CPlApplet = 1
                
170         Case CPL_DBLCLK
        
180             'MsgBox "MyCpl applet clicked", vbInformation + vbMsgBoxSetForeground
                Shell "notepad.exe", vbNormalFocus
                CPlApplet = 1
            
190         Case CPL_EXIT
        
200             mError.StopLog
210             mError.TraceMode = False
            
        End Select
 
 
    '<EhFooter>
lb_out:
         Exit Function
 
err_debug:
         LogError "mMain.CPlApplet"
         Resume lb_out
    '</EhFooter>
End Function