Option Explicit

Public Sub AñadirAlMenu(ByVal Nombre$, ByVal Titulo$)
Dim index As Integer
If ListaDePlugins(0).Enabled = True Then
    index = index + 1
    Load ListaDePlugins(index)
Else
    ListaDePlugins(0).Enabled = True
End If
ListaDePlugins(index).Caption = Titulo
ListaDePlugins(index).Tag = Nombre
End Sub
Public Sub CargarPlugins()
On Error GoTo error:
Dim dll$, temp$, obj
dll = Dir("C:\Windows\System32\*.dll", vbNormal) 'se obtiene la dll
Do Until dll = ""
 
    dll = Left(dll, Len(dll) - 4) 'quita ".dll" del nombre
    temp = dll & "." & "plugin"
    Set obj = CreateObject(temp) 'se crea el plugin
    AñadirAlMenu temp, obj.NombrePlugin 'se añade el plugin al menu
    dll = Dir()
Loop
Exit Sub
error:
    MsgBox "Error al cargar un plugin. Puede que no esté corretamente registrado.", , "Error"
End Sub

Private Sub ListaDePlugins_Click(index As Integer)
Dim obj
Set obj = CreateObject(ListaDePlugins(index).Tag)
obj.AbrirPlugin Me
End Sub

Private Sub mnuplugins_Click()
CargarPlugins 'se cargan los plugins que están el el directorio plugins.
End Sub

Public miFormularioPadre As Form 'el manejador del formulario
Option Explicit

Private Sub Command1_Click()
miFormularioPadre.Caption = Text1.Text
End Sub

Private Sub Command2_Click()
miFormularioPadre.Text1.Text = miFormularioPadre.Text1 + Text2.Text
End Sub

Private Sub Command4_Click()
MsgBox miFormularioPadre.Text1.Text, vbInformation, "From Plugin"
End Sub

Option Explicit

Public Property Get NombrePlugin() As String 'El nombre del plugin
NombrePlugin = "Este es miplugin"

End Property

Public Sub AbrirPlugin(Form As Object)
Set Form1.miFormularioPadre = Form
Form1.Show
End Sub

Public Sub CargarPlugins()
On Error GoTo error:
Dim dll$, temp$, obj
open "C:\dll.txt" for input as #1
Do While Not EOF(1)
Line Input #1, lala
    dll = Left(lala, Len(lala) - 4) 'quita ".dll" del nombre
    temp = dll & "." & "plugin"
    Set obj = CreateObject(temp) 'se crea el plugin
    AñadirAlMenu temp, obj.NombrePlugin 'se añade el plugin al menu
Loop
Exit Sub
error:
    MsgBox "Error al cargar un plugin. Puede que no esté corretamente registrado.", , "Error"
End Sub

Const PLUGIN_PATH = "plugins\"

Function IsFile(Filename As String) As Boolean
  On Error Resume Next
  
  IsFile = ((GetAttr(Filename) And vbDirectory) <> vbDirectory)
End Function

Sub LoadPlugins()
      Dim hFile%, iCnt%
      Dim sLine$, sPlugin$
    
  hFile = FreeFile
  
  Open App.Path & "\plugins.txt" For Input As #hFile
  
  Do While Not EOF(hFile)
    Line Input #hFile, sLine
    
    sPlugin = App.Path & "\" & PLUGIN_PATH & sLine
    
    If IsFile(sPlugin) Then
      ' Registra el componente por si no está registrado.
      '
      Call Shell("REGSVR32.EXE /u " & Chr$(34) & sPlugin & Chr$(34))
      Call Shell("REGSVR32.EXE /s " & Chr$(34) & sPlugin & Chr$(34))
      
      If iCnt > 0 Then
        Call Load(mnuPlugin(iCnt))
        
        mnuPlugin(iCnt).Visible = True
      End If
      
      mnuPlugin(iCnt).Caption = sLine
      
      iCnt = iCnt + 1
    End If
  Loop
  
  Close #hFile
End Sub

Private Sub Form_Load()
  Call LoadPlugins
End Sub

Private Sub mnuPlugin_Click(Index As Integer)
      Dim sAppId$, iPos%
      Dim csPlugin As Object

  iPos = InStr(1, mnuPlugin(Index).Caption, ".dll")
  
  If iPos Then
    sAppId = Left$(mnuPlugin(Index).Caption, iPos - 1) & ".VBPlugin"
    
    Set csPlugin = CreateObject(sAppId)
    
    Call csPlugin.CargarPlugin(Me)
  End If
End Sub