VERSION 4.00
Begin VB.Form EDN 
   Caption         =   "EDN Product Spotlight"
   ClientHeight    =   5655
   ClientLeft      =   1140
   ClientTop       =   1515
   ClientWidth     =   10350
   Height          =   6060
   Left            =   1080
   LinkTopic       =   "Form1"
   ScaleHeight     =   5655
   ScaleWidth      =   10350
   Top             =   1170
   Width           =   10470
   Begin VB.CommandButton Command1 
      Caption         =   "Execute Function"
      Height          =   615
      Left            =   360
      TabIndex        =   1
      Top             =   4800
      Width           =   2895
   End
   Begin CALLLib.Call Call1 
      Height          =   4335
      Left            =   360
      TabIndex        =   0
      Top             =   240
      Width           =   7935
      _Version        =   65536
      _ExtentX        =   13996
      _ExtentY        =   7646
      _StockProps     =   79
      HostName        =   "DOOMER"
      nLoadedLibs     =   0
      GeometrySpec    =   ""
      TimeOut         =   0
   End
End
Attribute VB_Name = "EDN"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Base 1

Private Sub Command1_Click()
    libraryName = "\tmp\random.vee"
    functionName = "random"
    Dim args(2)
    Dim returnVals(1)
    Dim randomReturn(1) As Double
    
    args(1) = 10         ' high limit for random number
    args(2) = 0          ' low limit for random number
    
    result = Call1.LoadVeeLibrary(libraryName)
    result = Call1.CallFunction(libraryName, functionName, args)
    
    returnVals(1) = randomReturn
    
    result = Call1.RetrieveFunctionResults(libraryName, functionName, returnVals)
End Sub