This example displays the name of the hotspot scheme of the active session.
Sub Main()
Dim Sys As Object, Sess As Object
Set Sys = CreateObject("EXTRA.System")
'Assumes an open session
MsgBox "The current HotSpot scheme is " + Sys.ActiveSession.HotSpotScheme + "."
End Sub