Frances
I added a Testbutton.
External SetFocus works fine and draws the Border.
dDate := Date()
@ 70, 95 DTPICKER oDate VAR dDate SIZE 50, 12 FONT oGetFont OF oDlg PIXEL
oDate:bGotFocus := {|hDC| Draw_Box( oDlg, oDate, nColorF, nSpace, nPen, 0, nStyle, nShPos ) }
oDate:bLostFocus := {|hDC| Draw_Box(oDlg, oDate, nColorL, nSpace, nPen, 0, nStyle, nShPos ) }
@ 170, 80 BTNBMP oBtn1 OF oDlg ;
SIZE 70, 25 PIXEL 2007 ;
NOBORDER ;
PROMPT "&Border " ;
FILENAME c_path + "\Bitmaps\Select.Bmp" ;
ACTION ( oDate:SetFocus(), oDate:Refresh() ) ;
FONT oGetFont ;
LEFT
Best Regards
Uwe