Hi,

I used the following code to have a calender on my forms, but how to use showwindow = 1 with a ceated form.

#DEFINE C_CALCAPTION_LOC "Data Calendar"
oCalForm = Create('form')
oCalForm.NewObject("oleCalendar","_olecalendar","_datetime")

WITH oCalForm.oleCalendar
.date_column = "Date()"
.RefreshDisplay()
.BackColor = THISFORM.BackColor
.Visible = .T.
ENDWITH
WITH oCalForm
.AutoCenter = .T.
.BorderStyle = 2
.MaxButton = .F.
.MinButton = .F.
.Height = oCalForm.oleCalendar.Height
.Width = oCalForm.oleCalendar.Width
.Caption = C_CALCAPTION_LOC
ENDWITH

oCalForm.Show(1)
THISFORM.Refresh



regards