VIDEO.CreateTool

status = VIDEO.CreateTool( nControl   AS INTEGER,

                           properties AS INTEGER ARRAY ) AS INTEGER

Creates a new tool from the supplied tool properties integer array.  The contents depends on the tool being created.  Use the following constant to size the array.

' Tool Properties

CONST MT_Tool_Properties   = 100

Example:

DIM props(MT_Tool_Properties) AS INTEGER

DIM count AS INTEGER

' Get Tool #1 Properties

count = VIDEO.GetToolProperties( nControl, 1, props )

IF i = 0 THEN

  PRINT "GetToolProperties Failed!",

ELSE

  ' Output the Tool Properties

  FOR i = 1 TO count

     PRINT i;": ";props(i),

  ENDFOR

ENDIF

' Recreate the Tool

VIDEO.ClearTool( nControl, 1, TRUE, MT_Tools_Angle )

VIDEO.CreateTool( nControl, props )