This is an example for the Application object.
'********************************************************************************************
' ApplicationObject.bas
' This script demonstrates the various properties of the Voxler application object.
'
' -by SKP 4/2010
'
'********************************************************************************************
Sub Main
'Declares VoxlerApp as an object
Dim VoxlerApp As Object
'Creates an instance of the Voxler application object
'and assigns it to the variable named "VoxlerApp"
'Comment the next line if Voxler is already open
Set VoxlerApp = CreateObject("Voxler.Application")
'Access existing Voxler object
'Uncomment the next line if Voxler is already open
' Set VoxlerApp = GetObject (,"Voxler.Application")
'Access the application and return the name
Debug.Print VoxlerApp.Application.name
'Return the name of the application
Debug.Print "Application name is "; VoxlerApp.name
'Return the full path and name of the application
Debug.Print "Application path and name is "; VoxlerApp.FullName
'Return the path to the Voxler application
Debug.Print "Application path is "; VoxlerApp.Path
'Return the version of Voxler currently running
Debug.Print "Voxler version number is "; VoxlerApp.Version
'Make Voxler visible
VoxlerApp.Visible = True
'Access the command interface
Set CommandApi = VoxlerApp.CommandApi
'Close Voxler
VoxlerApp.Quit
End Sub
See Also