I want to be able to keep the current computer on the screen as I step through a ListView object. I was thinking I could either .SetFocus or .Selected. That does not work for me. The ListView object does not scroll down as I go through the list.

Here is a code snippet that I am concerned about.

code:
FOR EACH $Item IN $List.Items
	$Item.SetFocus
NEXT
Here is the rest of the code, if you need it.
code:
FUNCTION Ping_Click()
	$Form.MousePointer = 11
	$Form.Enabled = 0
	$Form.BeginUpdate
	ResetList_Click()
	$RC = $List.Columns.Add('Ping Status')
	$RC = $List.Columns.Add('Ping IP')
	$RC = $List.Columns.Add('Ping Name')
	$RC = $List.Columns.Add('Ping Error')
	FOR EACH $Column IN $List.Columns
		$Column.Width = -1
		$Column.Width = -2
	NEXT
	$Form.EndUpdate
	$Form.MousePointer = 0
	$Form.Enabled = 1
	$List.SetFocus

	FOR EACH $Item IN $List.Items
		$Item.SetFocus
		$RC = IsPing($Item.SubItems(0).Text)
		$PingError = @error
		SELECT
			CASE $PingError = 0
				$PingStatus = 'On'
			CASE $PingError = 1
				$PingStatus = 'RAS'
			CASE $PingError = 2
				$PingStatus = 'Off'
			CASE $PingError = 3
				$PingStatus = 'Gone'
			CASE 1
				$PingStatus = 'PROBLEM'
		ENDSELECT
		$Item.SubItems(1).Text = $PingStatus
		$Item.SubItems(2).Text = $AddressIP
		$Item.SubItems(3).Text = $AddressName
		$Item.SubItems(4).Text = $IPError
	NEXT
	FOR EACH $Column IN $List.Columns
		$Column.Width = -1
		$Column.Width = -2
	NEXT
	$Form.EndUpdate
	$Form.MousePointer = 0
	$Form.Enabled = 1
	$List.SetFocus
	BEEP
ENDFUNCTION
I hope this makes sense.

Thanks

[ 05. November 2002, 18:40: Message edited by: krabourn ]
_________________________
Kelly