Application.RegisterVBAFunctions

This function registers a set of functions/keywords for Statistica Visual Basic (SVB).

Syntax Parameters Return Value 
Function Application.RegisterVBAFunctions( _
    Prototypes As String, _
    Keywords As String) As Integer
  • Prototypes [in]

The entire function definition.

Type: String

  • Keywords [in]

String value specifying a keyword to be added to SVB.

Type: String

Integer

SVB Example

Adding a Win32 function to SVB: 

Option Base 1
Option Explicit
Sub Main
    Dim CreatePenFunction As String
    'Add the CreatePen function to SVB
    CreatePenFunction = "Declare Function CreatePen Lib ""gdi32.dll""" _
        & "(ByVal fnPenStyle As Long, ByVal nWidth As Long, ByVal crColor As Long) As Long"
    Application.RegisterVBAFunctions(CreatePenFunction,"CreatePen")
End Sub