Imports System.Activities
Imports System.Activities.XamlIntegration
 
Public NotInheritable Class PlaceHolder
    Inherits Activity
 
    Property Z1() As InArgument(Of Double)
    Property Z2() As InArgument(Of Double)
    Property Result() As OutArgument(Of Double)
 
    Protected Overrides Property Implementation As System.Func(Of _
      System.Activities.Activity)
        Get
            Return AddressOf getActivity
        End Get
        Set(ByVal value As System.Func(Of System.Activities.Activity))
            MyBase.Implementation = value
        End Set
    End Property
 
    Private Function getActivity() As System.Activities.Activity
        Dim a As DynamicActivity
        a = ActivityXamlServices.Load("PfadZurXML")
        Return a
    End Function
End Class