Public Shared Sub DoWithWorkflow(ByVal workflowId As Guid, ByVal action As Action(Of WorkflowRuntime))
        action(Current)
        Dim scheduler = Current.GetService(Of ManualWorkflowSchedulerService)()
        If scheduler IsNot Nothing Then
            scheduler.RunWorkflow(workflowId)
        End If
    End Sub