' Initialize the session with the first session in the list
Dim rc
autECLConnMgr.autECLConnList.Refresh
autECLSession.SetConnectionByHandle(autECLConnMgr.autECLConnList(1).Handle)
rc = autECLSession.autECLPS.SendKeys("This is a test.", 3, 1 )
Msgbox rc