I'd appreciate it if somebody would please try the following sample code and tell me if I'm crazy.

First run it as is. Using the Scrollbar Thumb, scroll until the hilight is out of the picture. Then let go. Works as you expect?

Now uncomment the commented code and do it again. Does the hilight bounce back into the visible part of the listbox? The Arrows and clicking on the scroll bar off the thumb work properly. Also, if you scroll using the thumb, but before you let go, move your mouse sideways off the scroll bar, then it works properly?

Anybody know what's going on? I can't find this listed on MS's site anywhere, nor could I find it here anywhere. Is the only workaround not to have any 'When' code in the listbox?

LOCAL oFrm as Frm

oFrm = CREATEOBJECT('Frm')
oFrm.Show(1)
RETURN

DEFINE CLASS frm AS form
  Top = 0
  Left = 0
  Height = 209
  Width = 261
  Caption = "Form1"
  WindowType = 1
  listvalue = 10
  Name = "Frm"

  ADD OBJECT list1 AS listbox WITH ;
    RowSourceType = 6, ;
    RowSource = "ListData", ;
    Value = 1, ;
    ControlSource = "ThisForm.Listvalue", ;
    Height = 132, ;
    Left = 24, ;
    Top = 36, ;
    Width = 204, ;
    Name = "List1"

  PROCEDURE Load
    LOCAL lcSafety
    lcSafety = SET('Safety')
    SET SAFETY OFF
      CREATE TABLE ListData (Field1 C(5))
      FOR x = 65 TO 90
        INSERT INTO ListData (field1) VALUES (CHR(x))
      ENDFOR
    SET SAFETY &lcSafety
  ENDPROC

*!*    PROCEDURE List1.When
*!*      RETURN ThisForm.Enabled
*!*    ENDPROC
  
ENDDEFINE