This function returns the wait list the form is linked to.
object.GetWaitList()
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISProfileForm interface |
Display some information about the wait list the form is linked to.
Dim aForm
Dim aWaitList
Dim aFormInfo
Set aForm = Form
aFormInfo =_
"Form Short Name: " & aForm.ShortName & vbNewLine &_
"Form Type Name: " & aForm.TypeName & vbNewLine
set aWaitList = aForm.GetWaitList
if not aWaitList is nothing then
aFormInfo = aFormInfo &_
"Form Wait List Reason: " & aWaitList.Reason & vbNewLine &_
"Form Wait List Opened On: " & aWaitList.OpenedOn
else
aFormInfo = aFormInfo &_
"Wait List Not Defined"
end if
Profile.MsgBox(aFormInfo)