You're welcome!

>Thanks, Tore, that got it.
>
>Al
>
>>

>>LPARAMETERS nKeyCode, nShiftAltCtrl
>>
>>IF nKeyCode = 27 && Escape Key causes problem in control source of grid.
>>      NODEFAULT
>>ENDIF
>>
>>DO CASE
>>      CASE nKeyCode = 9
>>            Nodefault
>>            This.Parent.Width = 0
>>            This.Parent.Parent.grcProduct.Width = 244
>>            DODEFAULT(nKeyCode, nShiftAltCtrl)
>>
>>      CASE nKeyCode = 15
>>            Nodefault
>>            This.Parent.Width = 0
>>            This.Parent.Parent.grcDiscription.Width = 244
>>            DODEFAULT(nKeyCode, nShiftAltCtrl)
>>ENDCASE
>>

>>
>>>tab and shift-tab toggle product and description in the same space correctly.
>>>In the description field I get duplicate characters.
>>>I get for "cat" - ccaatt, if I take out the dodefault() I get nothing - what am I forgetting?
>>>=================================
>>>

>>>LPARAMETERS nKeyCode, nShiftAltCtrl
>>>
>>>IF nKeyCode = 27 && Escape Key causes problem in control source of grid.
>>>      NODEFAULT
>>>ENDIF
>>>
>>>DO CASE
>>>      CASE nKeyCode = 9
>>>            This.Parent.Width = 0
>>>            This.Parent.Parent.grcProduct.Width = 244
>>>
>>>      CASE nKeyCode = 15
>>>            This.Parent.Width = 0
>>>            This.Parent.Parent.grcDiscription.Width = 244
>>>
>>>ENDCASE
>>>
>>>DODEFAULT(nKeyCode, nShiftAltCtrl)
>>>
>>>

>>>
>>>tia