Working with an existing instance of Rumba+

This example searches an existing instance of Rumba+ and, if found, obtains the emulation object:

Sub UseExistingRumbaSession()
    Dim App As RumbaApplicationObject
    Dim Emul As RumbaEmulationSessionObject

    rumbaDescriptors = RunningRumbaObjectDescriptors
    If Len(Join(rumbaDescriptors)) > 0 Then
        ' A Rumba instance was found
        Set App = GetObject(rumbaDescriptors(LBound(rumbaDescriptors)))
        Set Emul = App.GetSession(App.ActiveSessionID)
        ' Perform session operations using Emul
    End If
End Sub