I see now what you were asking. I found the bug and it will be corrected in the next release (2.5.10). Until then, you can use this as a work around:
Dim regTask As Task = NothingDim td As TaskDefinition = ts.NewTask() td.Principal.LogonType = LogonType.InteractiveToken Dim editorForm AsNew TaskEditDialog(ts, td, True, True) With {.Title = "Create New Task"} If editorForm.ShowDialog() = Windows.Forms.DialogResult.OK Then regTask = editorForm.Task EndIf