Private Sub ListImos()
    On Error GoTo ErrorHandler
    
    Dim lCount              As Long
    Dim sPict               As String
    Dim objMouse            As New CMouse
    Dim lvwItem             As ListItem
    
    objMouse.SetHourglass
      
    If m_objBookedUnit Is Nothing Then Set m_objBookedUnit = New CBookedUnit

  #If useMTS Then
        Set MyObjectContext = GetObjectContext()
    #End If

#If useMTS Then

'UPGRADE_TODO: (1035) #If #EndIf block was not upgraded because the expression useMTS did not evaluate to True or was not evaluated. More Information: http://www.vbtonet.com/ewis/ewi1035.aspx