'This example creates and saves a theme. The theme is applied to the session.
Public Sub CreateAndSaveTheme()
 
    'Declare and set a font object.
    Dim font As ThemeFont
    Set font = ThisTerminal.Theme.font
   
    'Declare and set a cursor object.
    Dim cursor As ThemeCursor
    Set cursor = ThisTerminal.Theme.cursor
    
    'Set AutofontSize to false to allow resizing of font.
    font.AutoFontSize = False
    font.FONTSIZE = 12
  
    'Change to a colored cursor with a faster blink rate and a vertical bar shape.
    cursor.Parent.DisplayEnhancements.ColorCursor = True
    cursor.CursorBlink = True
    cursor.CursorShape = CursorShapeOption_VerticalBar
   
    'Save the changes in a new theme to prevent InfoConnect from requesting to save the new theme.
    ThisTerminal.Theme.SaveAs (Environ$("USERPROFILE") & "\Documents\Micro Focus\InfoConnect\Themes\myNewTheme.themex")
       
End Sub