External Functions VB Sample Code

Option Strict Off
Option Explicit On
Module ExtFunctions
	Public Function myOperator(ByVal lExOpID As Integer) As Integer
		
		Dim szMessage As String
		Dim lSetResult As Integer
		
		szMessage = lzGetStrParm(lExOpID, 0)
		'MsgBox (szMessage)
		lSetResult = lzSetStrResult(lExOpID, szMessage)
		'lSetResult = lzSetNumResult(lExOpID, 3)
		
		myOperator = 0
		
	End Function
End Module