*!* dian s 2006
LOCAL odForm as Form

odForm=CREATEOBJECT('dianFORM')
odForm.Show(1)
RETURN

DEFINE CLASS dianFORM as Form
autocenter=.t.
height=250
width=375
Caption="DateTime Picker"

ADD OBJECT text1 as textbox WITH ;
Top = 24,;
Left = 12,;
Width = 75

ADD OBJECT dtpick as mzdt WITH ;
left= 90,;
top =24,;
width = 18,;
height=20

ADD OBJECT keluar AS commandbutton WITH ;
Top = 204, ;
Left = 252, ;
Height = 27, ;
Width = 80, ;
Caption = "\<Close"

PROCEDURE init
	SET DATE DMY
	this.text1.value=DATE()
ENDPROC

PROCEDURE keluar.Click
Thisform.release
ENDPROC
ENDDEFINE

DEFINE CLASS mzdt as Olecontrol 
OLEClass = "MSComCtl2.DTPicker.2"
PROCEDURE Change 
	thisform.text1.value=TTOD(this.object.value)
ENDPROC
ENDDEFINE