Object.CursorShape As CursorShapeOption
Sub SetCursorShape() ThisIbmTerminal.Theme.Cursor.CursorShape = CursorShapeOption_LowHalfBlock End Sub
ThemeCursor Object ThemeCursor Members