
/*------------------------------------------------------------------------
    File        : startVirtualUI.p
    Purpose     : 

    Syntax      :

    Description : 

    Author(s)   : 
    Created     : Tue Aug 18 16:26:07 ART 2020
    Notes       :
  ----------------------------------------------------------------------*/

/* ***************************  Definitions  ************************** */

BLOCK-LEVEL ON ERROR UNDO, THROW.

/* ********************  Preprocessor Definitions  ******************** */


/* ***************************  Main Block  *************************** */
DEFINE VARIABLE vui AS COM-HANDLE NO-UNDO.

MESSAGE "Creating VirtualUI object." VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.
CREATE VALUE("Thinfinity.VirtualUI") vui NO-ERROR.
IF ERROR-STATUS:ERROR = FALSE THEN
  vui:START(30).
ELSE
  MESSAGE "Error creating VirtualUI object." VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.
