Function examples that are working in 5, but not 7: 'Define global Bluezone Variables Global SystemBZ As Object Global Sess0 Global Screen Global Const TestEnvironment As Boolean = False Global Const DEFAULT SCREEN As String = "LACO0010" '############################################### '# Name: BZ Connect() '# PURPOSE: Create a new Bluezone Connection '############################################### Sub BZ Connect() Set SystemBZ = CreateObject("BZWhll.Whllobj") Set Sess0 = SystemBZ.ActiveSession Set Screen = Sess0.Screen End Sub '################################################### '# Name: BZ Terminate() '# PURPOSE: Terminate Existing Bluezone Connection '################################################### Sub BZ Terminate() If Not (SystemBZ Is Nothing) Then SystemBZ.Disconnect Set SystemBZ = Nothing Set Sess0 = Nothing Set Screen = Nothing End If End Sub '############################################### '# Name: BZ Initiate() '# PURPOSE: Initiate a new Bluezone Connection '############################################### Function BZ Initiate() 'Terminate the existing session Call BZ Terminate 'Create a new connection to BlueZone Call BZ Connect End Function '############################################### '# Name: ReadScreen() '# PURPOSE: Bluezone Screen Scrape '# Returns: String '############################################### Function ReadScreen(L As Integer, x As Integer, y As Integer, Optional blnTrim As Boolean = False) SystemBZ.ReadScreen ReadScreen, L, x, y If blnTrim Then ReadScreen = Trim(ReadScreen) End If End Function '############################################### '# Name: WriteScreen() '# PURPOSE: Write data to Bluezone '############################################### Sub WriteScreen(str, x As Integer, y As Integer) SystemBZ.WriteScreen str, x, y End Sub '############################################### '# Name: Send() '# PURPOSE: Send keys to Bluezone '############################################### Sub Send(str As String, lWait As Long) Screen.SendKeys str Select Case str Case " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " " SystemBZ.WaitReady 10, lWait End Select End Sub '############################################### '# Name: SetCursor() '# PURPOSE: Send keys to Bluezone '############################################### Sub SetCursor(x As Integer, y As Integer) SystemBZ.SetCursor x, y End Sub