LibreOffice Basic: Open a Form function

Sub OpenAForm(oEv As Object)
Dim GetFormName As String
Dim GetForm as Object
GetFormName = "Authors"
GetForm = ThisDatabaseDocument.FormDocuments.GetByName(GetFormName)
GetForm.Open
End Sub