Imports Plugin
Imports System.Reflection
 
Class Window1
    Private mLabel1Plugins As New List(Of ILabel1)
    Private mLabel2Plugins As New List(Of ILabel2)
    Private mPlugins As New List(Of IPlugin)
 
    Public Sub New()
        InitializeComponent()
        Dim dir As New IO.DirectoryInfo(IO.Path.Combine( _
          My.Application.Info.DirectoryPath, "Plugins"))
        If Not dir.Exists Then dir.Create()
        For Each fi As IO.FileInfo In dir.GetFiles("*.dll")
            If fi.Name <> "Plugin.dll" Then
                Dim asm As Assembly = Assembly.LoadFrom(fi.FullName)
                Dim types() As Type = asm.GetTypes
                For Each t As Type In types
                    Try
                        Dim plugIn As ILabel1 = CType(asm.CreateInstance( _
                          t.FullName), ILabel1)
                        plugIn.Lbl1 = Me.Label1
                        mLabel1Plugins.Add(plugIn)
                        mPlugins.Add(plugIn)
                        AddMenu(plugIn)
                    Catch ex As Exception
                    End Try
                    Try
                        Dim plugIn As ILabel2 = CType(asm.CreateInstance( _
                          t.FullName), ILabel2)
                        plugIn.Lbl2 = Me.Label2
                        mLabel2Plugins.Add(plugIn)
                        mPlugins.Add(plugIn)
                        AddMenu(plugIn)
                    Catch ex As Exception
                    End Try
                Next
            End If
        Next
    End Sub
 
    Private Sub AddMenu(ByVal plg As IPlugin)
        Dim mnu As New MenuItem
        mnu.Header = plg.PluginName
        mnu.IsCheckable = True
        mnu.IsChecked = False
        AddHandler mnu.Click, AddressOf mnuPlugin_Clicked
        mnuPlugins.Items.Add(mnu)
    End Sub
 
    Private Sub mnuPlugin_Clicked(ByVal sender As Object, ByVal e As _
      RoutedEventArgs)
        Dim mnu As MenuItem = CType(sender, MenuItem)
        For Each plg As IPlugin In mPlugins
            If plg.PluginName = mnu.Header Then
                If plg.IsLoaded Then : plg.Unload()
                Else : plg.Load()
                End If
                mnu.IsChecked = plg.IsLoaded
                Exit For
            End If
        Next
    End Sub
End Class