DEFINE CLASS form1 AS form DoCreate = .T. AutoCenter = .T. Caption = "Form1" Name = "Form1" ADD OBJECT text1 AS textbox WITH ; Alignment = 3, ; ControlSource = "address.corganisation", ; Height = 23, ; Left = 36, ; Top = 24, ; Width = 144, ; Name = "Text1" PROCEDURE Init If !Seek(1, "Address", "ID") Return .F. EndIf ENDPROC PROCEDURE selectvalues Lparameters loControl Wait window "SelStart is "+Transform(loControl.SelStart)+" SelLength is "+Transform(loControl.SelLength) ENDPROC PROCEDURE text1.Valid Set Step On NoDefault ENDPROC PROCEDURE text1.RightClick ThisForm.SelectValues(This) ENDPROC ENDDEFINE