Option Explicit
 
Private Type StructPlugins
    ID              As String
    ObjectDLL       As Object
End Type
Private CollPlugins()               As StructPlugins
'
' ////////////////////////////////////////////////////////////////
' // Autor: BlackZeroX ( Ortega Avila Miguel Angel )            //
' //                                                            //
' // Web: http://InfrAngeluX.Sytes.Net/                         //
' //                                                            //
' // |-> Pueden Distribuir Este Código siempre y cuando         //
' // no se eliminen los créditos originales de este código      //
' // No importando que sea modificado/editado o engrandecido    //
' // o achicado, si es en base a este código                    //
' ////////////////////////////////////////////////////////////////
Enum GetFileStr
    FileName = 0
    extensión
    Ruta
End Enum
Public Function GetPatchInfo(ByVal StrRutaFull As String, Optional ByVal Options As GetFileStr = FileName) As String
Dim Puntero(1)              As Long
Dim lenStr                  As Long
    lenStr = Len(StrRutaFull)
    Puntero(0) = InStrRev(StrRutaFull, "\")
    If Puntero(0) > 0 Then
        Puntero(1) = InStrRev(StrRutaFull, ".")
        Puntero(1) = IIf(CBool(Puntero(1)), IIf(Puntero(0) < Puntero(1), Puntero(1), lenStr + 1), lenStr + 1)
        Select Case Options
            Case FileName
                GetPatchInfo = Mid$(StrRutaFull, Puntero(0) + 1, CLng(IIf(Puntero(1) = lenStr, lenStr - Puntero(0), Puntero(1) - Puntero(0)) - 1))
            Case extensión
                GetPatchInfo = Mid$(StrRutaFull, Puntero(1), Puntero(1))
            Case Ruta
                GetPatchInfo = Mid$(StrRutaFull, 1, Puntero(0))
            Case Else
                GetPatchInfo = -1
        End Select
    Else
        GetPatchInfo = -1
    End If
End Function
 
'   //  Esto es solo un ejemplo ( se Nesesita un ajuste del Array para no dejar Arrays vacios es decir Plugins/Addons entre los mismos )
Private Function ADD_PLugin(ByVal StrPath As String) As Boolean: On Error Resume Next
Dim TmpObject               As Object
 
    If Dir(StrPath, vbArchive) = "" Then Exit Function
    Shell "REGSVR32.EXE /s " & Chr(34) & StrPath & Chr(34) '   //  Registramos la DLL con RegSvr32.exe
    '   //  cMain es el nombre de la clase o plugin que se va a crear...
    Set TmpObject = CreateObject(GetPatchInfo(StrPath, FileName) & ".cMain")  '   //  Creamos el Plugin...
 
    If TmpObject Is Nothing Then Exit Function
    If (Not CollPlugins) = -1 Then
        ReDim CollPlugins(0)
    Else
        ReDim Preserve CollPlugins(UBound(CollPlugins) + 1)
    End If
    With CollPlugins(UBound(CollPlugins))
 
        Set .ObjectDLL = TmpObject
        Set TmpObject = Nothing
 
        With .ObjectDLL
 
            .CMain = Me
            MsgBox .Nombre    '   //  Nombre de la DLL...
            MsgBox .Version   '   //  Nombre de la DLL...
            MsgBox .ProcesoUno("Estos son solo parametros que no se toman en cuenta...", "Solo son ejemplos")    '   //  Nombre de la DLL...
            MsgBox .ProcesoDos("Estos son solo parametros que no se toman en cuenta...", "Solo son ejemplos")    '   //  Nombre de la DLL...
 
            .Inicializar '  //  Si aparece un error aqui, es que hay un error en el plugin... al igual que en sus procesos... esto es muy posible!¡.
 
        End With
 
        ADD_PLugin = True
    End With
End Function
 
'   //  este proceso se es llamado desde el Plugin Addon
Public Function Set_Configuración(ParamArray Paramertros())
Dim aa          As Variant
    If Not IsMissing(Paramertros) Then
        For Each aa In Paramertros
            If Not IsMissing(aa) Then
                If IsObject(aa) Then
                    Debug.Print TypeName(aa)
                Else
                    Debug.Print aa
                End If
            End If
        Next
    End If
End Function
 
Private Sub Form_Load()
    MsgBox IIf(ADD_PLugin("c:\PluginChat.dll"), "Se agrego con Exito", "Error")
    MsgBox IIf(ADD_PLugin("c:\PluginChat.dll"), "Se agrego con Exito", "Error")
    MsgBox IIf(ADD_PLugin("c:\PluginChat.dll"), "Se agrego con Exito", "Error")
    MsgBox IIf(ADD_PLugin("c:\PluginChat.dll"), "Se agrego con Exito", "Error")
    MsgBox IIf(ADD_PLugin("c:\PluginChat.dll"), "Se agrego con Exito", "Error")
End Sub
 
'   //  Se descargan los Addon... si no se quedan en memoria xP... IDE...
Private Sub Form_Unload(Cancel As Integer)
If (Not CollPlugins) = -1 Then Exit Sub
Dim lng_Index&
    For lng_Index& = LBound(CollPlugins) To UBound(CollPlugins)
        Set CollPlugins(lng_Index&).ObjectDLL = Nothing
    Next
End Sub