Imports System.Windows.Controls
 
Public Interface IPlugin
    ReadOnly Property PluginName() As String
    ReadOnly Property IsLoaded() As Boolean
    Sub Load()
    Sub Unload()
End Interface
 
Public Interface ILabel1
    Inherits IPlugin
    Property Lbl1() As Label
End Interface
 
Public Interface ILabel2
    Inherits IPlugin
    Property Lbl2() As Label
End Interface

Imports Plugin
Imports System.Windows.Controls
 
Public Class Label1Plg
    Implements ILabel1
    Private mIsLoaded As Boolean = False
    Private mLabel As Label
    Public Property Lbl1() As System.Windows.Controls.Label Implements _
      Plugin.ILabel1.Lbl1
        Get
            Return mLabel
        End Get
        Set(ByVal value As System.Windows.Controls.Label)
            mLabel = value
        End Set
    End Property
    Public ReadOnly Property PluginName() As String Implements _
      Plugin.IPlugin.PluginName
        Get
            Return "Label1Plugin"
        End Get
    End Property
    Public ReadOnly Property IsLoaded() As Boolean Implements _
      Plugin.IPlugin.IsLoaded
        Get
            Return mIsLoaded
        End Get
    End Property
    Public Sub Load() Implements Plugin.IPlugin.Load
        mIsLoaded = True
        mLabel.Content = "TestString1"
    End Sub
    Public Sub Unload() Implements Plugin.IPlugin.Unload
        mIsLoaded = False
    End Sub
End Class
 
Public Class Label2Plg
    Implements ILabel2
    Private mIsLoaded As Boolean = False
    Private mLabel As Label
    Public Property Lbl2() As System.Windows.Controls.Label Implements _
      Plugin.ILabel2.Lbl2
        Get
            Return mLabel
        End Get
        Set(ByVal value As System.Windows.Controls.Label)
            mLabel = value
        End Set
    End Property
    Public ReadOnly Property PluginName() As String Implements _
      Plugin.IPlugin.PluginName
        Get
            Return "Label2Plugin"
        End Get
    End Property
    Public ReadOnly Property IsLoaded() As Boolean Implements _
      Plugin.IPlugin.IsLoaded
        Get
            Return mIsLoaded
        End Get
    End Property
    Public Sub Load() Implements Plugin.IPlugin.Load
        mIsLoaded = True
        mLabel.Content = "TestString2"
    End Sub
    Public Sub Unload() Implements Plugin.IPlugin.Unload
        mIsLoaded = False
    End Sub
End Class