Spread日付セールのカレンダーに本日を初期値として表示する

        Application.CurrentCulture = New System.Globalization.CultureInfo("ja-JP", false)
        Dim dt As FarPoint.Win.Spread.CellType.DateTimeCellType = New FarPoint.Win.Spread.CellType.DateTimeCellType()
        dt.CalendarSurroundingDaysColor = System.Drawing.SystemColors.GrayText
        dt.DateDefault = Date.Now
        dt.DateSeparator = "/"
        dt.DateTimeFormat = FarPoint.Win.Spread.CellType.DateTimeFormat.UserDefined
        dt.MaximumTime = System.TimeSpan.Parse("23:59:59.9999999")
        dt.TimeDefault = Date.Now
        dt.UserDefinedFormat = "yyyy/MM/dd"
        FpSpead1.ActiveSheet.Columns.Get(0).CellType = dt