[COLOR=red]Declare Function MultiTab (NumberOfTabs As Integer) As String[/color]
Sub Main
Dim sys as object
Dim sess as object
Dim myscreen as object
Set MyScreen = CreateObject("EXTRA.System").ActiveSession.Screen
[COLOR=red] MyScreen.Sendkeys MultiTab(5)[/color]
End Sub
[COLOR=red]
Function MultiTab(NumberOfTabs As Integer) As String
For AllTabs = 0 to NumberOfTabs - 1
sTabString = sTabString & "<tab>"
Next
MultiTab = sTabString
End Function[/color]