how i create a function who create a session?

[perdeu]

how i create a function who create a session?

i did this function, but when i execute, it close the window of attachmate, i tryed run in another pc.... and close the window too




Function criarSession() as Object

Dim System As Object
Dim Sessions As Object
Dim Sess0 As Object

Set System = CreateObject("EXTRA.System")

If (System is Nothing) Then
Msgbox "Não pôde criar o objeto de SistemaEXTRA."
STOP
End If

Set Sessions = System.Sessions
If (Sessions is Nothing) Then
Msgbox "Não pôde criar o objeto de coleção Sessions."
STOP
End If

Set Sess0 = System.ActiveSession
If (Sess0 is Nothing) Then
Msgbox "Não pôde criar o objeto Session."
STOP
End If

criarSession = Sess0

End Function