Private Sub Document_Open()
    formOpen
End Sub