Shared Sub OnWorkflowCompleted(ByVal sender As Object, ByVal e As WorkflowCompletedEventArgs)
'The order status is stored in the "status" "out" parameter
Dim orderStatus As String = e.OutputParameters("Status").ToString()
Console.WriteLine("Order was " + orderStatus)
waitHandle.Set()
End Sub