loop all my session and add in listbox 1

[sal0003]

I need to loop all my sessions and add the related name in a combobox only for the Extra screen session in position of screen 9,21 are the word: ENTER APPLICATION...

I hope i'm clear.

Naturally in vb 6.0 code.
Tkx.

 

[SkipVought]

hi,

I need to loop all my sessions

Public Sessions As Object
Public System As Object
Public Sess0 As Object
Public oSess as Object

'Extra Objects
    Set System = CreateObject("EXTRA.System")   ' Gets the system object
    If (System Is Nothing) Then MsgBox "Could not create the EXTRA System object.  Stopping macro playback.": Stop
    Set Sessions = System.Sessions
    If (Sessions Is Nothing) Then: MsgBox "Could not create the Sessions collection object.  Stopping macro playback.": Stop
    Set Sess0 = System.ActiveSession
    If (Sess0 Is Nothing) Then MsgBox "Could not create the Session object.  Stopping macro playback.": Stop
'[b][highlight]I need to loop all my sessions
  for each oSess in Sessions

  next
'[/highlight][/b]
Set Sessions = Nothing
Set System = Nothing
Set Sess0 = Nothing

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]