Function GetResource(ByVal ResourceName As String) As Object Implements _
      clsPluginLoader.IPlugin.GetResource
        Try
            Return My.Resources.ResourceManager.GetObject(ResourceName)
        Catch ex As Exception
            Return Nothing
        End Try
    End Function

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button3.Click
        Dim Testbild As Image
                If bLoaded Then
            TextBox1.Text = myPlugin(ActivePlugin).GetResource("String1")
            Testbild = myPlugin(ActivePlugin).GetResource("bild") 'bis dahin 
            ' geht's
 
            Me.PictureBox1.Image = Testbild 'hier bricht es ab
 
        End If
    End Sub