>
>I need to open a Calendar By ComboBox and When user select the date, the date should Appear in this combo also
>
Here we go (again):
:)

oMyform                 = CREATE('myform')   
oMyform.Show   
READ EVENTS
return

Define Class MYFORM AS Form
    height              = 60
    caption             = "Testing DTPicker"
    autocenter          = .t.
    maxbutton           = .f.
    minbutton           = .f.
    alwaysontop         = .t.
    procedure destroy
        clear events
    endproc
	Add OBJECT odatetime AS odttm with ;
      	width           = 85,;
     	Top             = 5,;
     	height          = 25
Enddefine
DEFINE Class odttm AS Olecontrol
     OleClass           = "MScomctl2.DTPicker.2"
     OleLCID            = 1033
     PROCEDURE Init
        this.left       = (thisform.width-this.width) / 2
	Endproc
Enddefine