expression.CursorBlinkRate As CursorBlinkRateOption
where expression is a variable that represents a ThemeCursor Object
expression.CursorBlinkRate As CursorBlinkRateOption
Sub BlinkFast() ThisIbmTerminal.Theme.Cursor.CursorBlinkRate = CursorBlinkRateOption_Fast End Sub