The example uses WaitHostQuiet and SendKeys to page through host demonstration screens (using the SlideShow connection type). Note that with the exception of the first instance of SendKeys, this method is only executed if the WaitHostQuiet method returns TRUE.
Sub Main()
Dim Sys As Object, Sess As Object, MyScreen As Object
Set Sys = CreateObject("EXTRA.System")
' Assumes an open session
Set Sess = Sys.ActiveSession
Set MyScreen = Sess.Screen
Sys.TimeoutValue = 9000
' This will page through a couple of "slide show" host screens.
MyScreen.SendKeys ("a<Enter>")
Wait1st = MyScreen.WaitHostQuiet(9000)
If Wait1st Then
MyScreen.SendKeys ("user1<Enter>")
Wait2nd = MyScreen.WaitHostQuiet(9000)
If Wait2nd Then
MyScreen.SendKeys ("logoff<Enter>")
Wait3rd = MyScreen.WaitHostQuiet(9000)
End If
End If
If Not (Wait1st And Wait2nd And Wait3rd) Then MsgBox "Error navigating host screens."
End Sub