Public Sub ChangeTheme()
 
    'Declare and set a Themecursor object
    Dim cursor As Attachmate_Reflection_Objects_Emulation_IbmHosts.ThemeCursor
    Set cursor = ThisIbmTerminal.Theme.cursor
    'Make the ruler line visible and set the type to crosshair
    cursor.RulerCursorVisible = True
    cursor.RulerCursorType = RulerCursorTypeOption_Crosshair
  
    'Declare and set a Themecolor object
    Dim color As Attachmate_Reflection_Objects_Emulation_IbmHosts.ThemeColor
    Set color = ThisIbmTerminal.Theme.ThemeColor
    'Set the screen Background color
    color.BackgroundColor = RGB(0, 0, 0)
 
    'Save the changes in a new theme to prevent InfoConnect from requesting to save new theme
    ThisIbmTerminal.Theme.SaveAs (Environ$("USERPROFILE") & "\Documents\Micro Focus\InfoConnect\Themes\myCustomTheme.themex")
    
End Sub