PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN DEFINE CLASS form1 AS form Caption = "Form1" Name = "Form1" ADD OBJECT text1 AS textbox WITH ; ControlSource = "temp.dt1", ; Height = 23, ; Left = 70, ; Top = 43, ; Width = 194, ; Name = "Text1" PROCEDURE Load SET strictdate to 0 CREATE TABLE temp (dt1 t) INSERT INTO temp VALUES (DATETIME()) ENDPROC ENDDEFINE