>Cetin -
>
>I have posted the form on our website:
>

>http://www.cdsbytes.com/examples/test.zip
>

>
>Please try this form.
>
>- George

George,
Yes replicated with that one. Mine had another control that could get focus. It might be worked around in many ways for example by placing a 'shield' shape in front. ie:

*Combo.init
*...
With This.Parent
  .AddObject(This.Name+'_Shield','Shape')
  With Evaluate("."+This.Name+'_Shield')
    .BorderStyle = 0
    .BackStyle = 0
    .Top = This.Top
    .Left = This.Left
    .Width = This.Width
    .Height = This.Height
    .ZOrder()
  Endwith
Endwith

*Combo.when
LOCAL llRetVal
llRetVal = .F.
WITH EVALUATE("this.Parent."+this.name+'_Shield')
 .Visible = !llRetVal
endwith
RETURN llRetVal

Cetin