DimdtAsString DimbolAsBoolean bol=True dt=DateTime.Date(DateTime.Now) ListView1.AddSingleLine(EdtScan.Text) ListView1.AddSingleLine(dt) EdtScan.Text="" bol=EdtScan.RequestFocus() EdtScan.SelectAll IfbolThen Msgbox("Josking,youfocussetfailed","joskingtest") EdtScan.Text=