expression.CursorShape As CursorShapeOption
where expression is a variable that represents a ThemeCursor Object
expression.CursorShape As CursorShapeOption
Sub SetCursorShape() ThisIbmTerminal.Theme.Cursor.CursorShape = CursorShapeOption_LowHalfBlock End Sub