GetCursorColumn

Description

Returns the current column position of the cursor

Syntax

ret = GetCursorColumn ( )

Parameters

ret	Integer, output
	The column position of the cursor.

Remarks

The column position ranges in value from 1 to 80 for model 2, 3 and 4 screen sizes. The column position ranges in value from 1 to 132 for the wide column model 5 screen size. For VT screen sizes the column position ranges 1 to 80 or 1 to 132.

The parentheses after GetCursorColumn are optional.

This is a PASSPORT function.

Example

Sub ZMain()
Dim strText, nRet
Dim nCursorColumn
nCursorColumn = GetCursorColumn
strText = "Current column position = " & nCursorColumn
nRet = MsgBox (strText, 0, "Column Position")
End Sub