Imports System.Activities

Public NotInheritable Class $safeitemname$
    Inherits CodeActivity
    
    'Aktivitätseingabeargument vom Typ "string" definieren
    Property Text() As InArgument(Of String)

    ' Wenn durch die Aktivität ein Wert zurückgegeben wird, wird eine Ableitung von CodeActivity(Of TResult) vorgenommen
    ' und der Wert von der Ausführmethode zurückgegeben.
    Protected Overrides Sub Execute(ByVal context As CodeActivityContext)
        'Laufzeitwert des Texteingabearguments abrufen
        Dim text As String
        text = context.GetValue(Me.Text)
    End Sub
End Class