This function shows a form as a modal form.
object.ShowModal()
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISProfileForm interface |
int
Display the modal result for the form.
Dim aPatient
Dim aForm
Dim aModalResult
Set aPatient = Profile.SelectPatient
set aForm = Profile.OpenFormByPath(aPatient.Id, "Clinical\Lifestyle and Behaviours", true, true)
aModalResult = aForm.ShowModal
Profile.MsgBox(aModalResult)