Private Sub IbmTerminal_AfterConnect(ByVal sender As Variant)
        ThisIbmTerminal.FileTransfer.ShowFileTransferDialog
End Sub

'Place this code in the ThisIbmTerminal code window
Private Sub IbmTerminal_AfterConnect(ByVal sender As Variant)
    
    ThisIbmScreen.ClearEvents
 
    'Define an event that occurs when there is no host activity for 30 seconds
    ThisIbmScreen.DefineEvent 1, DefinedEventType_Silence, "00:00:30", " ", 0, 0
    
End Sub
 
'Place this code in the ThisIbmScreen code window. The following procedure is executed when a defined event triggers.
Private Sub IbmScreen_DefinedEvent(ByVal EventNumber As Long, ByVal EventType As Attachmate_Reflection_Objects_Emulation_IbmHosts.DefinedEventType, ByVal TheString As String, _
     ByVal row As Long, ByVal column As Long)
    
    'If the host is inactive for the specified interval, disconnect
    If EventNumber = 1 Then
    
        ThisIbmTerminal.Disconnect
        
    End If
    
End Sub

Private Sub IbmTerminal_AfterConnect(ByVal sender As Variant)
Dim Port As Integer
Dim Address As String
 
    With ThisIbmTerminal
    
    
        Address = .HostAddress
        
        Port = .Port
    
        ThisView.titleText = ThisIbmTerminal.HostAddress & " on " & ThisIbmTerminal.Port
        
    End With
 
End Sub