With AxCalendar1
	.Appearance = EXCALENDARLib.AppearanceEnum.None2
End With

With AxCalendar1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.Appearance = 16777216
End With

With AxCalendar1
	.Font.Name = "Verdana"
End With

With AxCalendar1
	.BackColor = Color.FromArgb(200,200,200)
End With

With AxCalendar1
	.ForeColor = Color.FromArgb(255,0,0)
End With

With AxCalendar1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.set_Background(EXCALENDARLib.BackgroundPartEnum.exScrollUp,16777216)
	.set_Background(EXCALENDARLib.BackgroundPartEnum.exScrollDown,16777216)
End With

With AxCalendar1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.set_Background(EXCALENDARLib.BackgroundPartEnum.exScrollLeft,16777216)
	.set_Background(EXCALENDARLib.BackgroundPartEnum.exScrollRight,16777216)
End With

With AxCalendar1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
	.set_Background(EXCALENDARLib.BackgroundPartEnum.exDropDownButtonUp,16777216)
	.set_Background(EXCALENDARLib.BackgroundPartEnum.exDropDownButtonDown,33554432)
End With

With AxCalendar1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.set_Background(EXCALENDARLib.BackgroundPartEnum.exDaysHeader,16777216)
End With

With AxCalendar1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.set_Background(EXCALENDARLib.BackgroundPartEnum.exWeeksHeader,16777216)
	.HeaderForeColor = Color.FromArgb(255,0,0)
	.ShowWeeks = True
End With

With AxCalendar1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.set_Background(EXCALENDARLib.BackgroundPartEnum.exDateHeader,16777216)
	.HeaderForeColor = Color.FromArgb(255,0,0)
End With

With AxCalendar1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
	.set_Background(EXCALENDARLib.BackgroundPartEnum.exDateTodayUp,16777216)
	.set_Background(EXCALENDARLib.BackgroundPartEnum.exDateTodayDown,33554432)
End With

With AxCalendar1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.VisualAppearance.Add 2,"c:\exontrol\images\pushed.ebn"
	.set_Background(EXCALENDARLib.BackgroundPartEnum.exDateScrollRange,16777216)
	.set_Background(EXCALENDARLib.BackgroundPartEnum.exDateScrollThumb,33554432)
End With

With AxCalendar1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.set_Background(EXCALENDARLib.BackgroundPartEnum.exDateSeparatorBar,16777216)
End With

With AxCalendar1
	.VisualAppearance.Add 1,"c:\exontrol\images\pushed.ebn"
	.set_Background(EXCALENDARLib.BackgroundPartEnum.exMarkToday,16777216)
	.SelForeColor = Color.FromArgb(0,0,0)
	.MarkToday = True
End With

With AxCalendar1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.set_Background(EXCALENDARLib.BackgroundPartEnum.exMonthSelect,16777216)
	.set_Background(EXCALENDARLib.BackgroundPartEnum.exMonthSelectForeColor,255)
End With

With AxCalendar1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.set_Background(EXCALENDARLib.BackgroundPartEnum.exToolTipAppearance,16777216)
	.Events.Add(AxCalendar1.Date).Comment = "This is a text that shows up when the cursor hovers the date"
	.HideSelection = True
End With

With AxCalendar1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.set_Background(EXCALENDARLib.BackgroundPartEnum.exToolTipBackColor,255)
	.Events.Add(AxCalendar1.Date).Comment = "This is a text that shows up when the cursor hovers the date"
	.HideSelection = True
End With

With AxCalendar1
	.ToolTipDelay = 1
	.ToolTipWidth = 364
	.set_Background(EXCALENDARLib.BackgroundPartEnum.exToolTipForeColor,255)
	.Events.Add(AxCalendar1.Date).Comment = "This is a text that shows up when the cursor hovers the date"
	.HideSelection = True
End With

With AxCalendar1
	.Enabled = False
End With

With AxCalendar1
	.SingleSel = False
End With

With AxCalendar1
	.SingleSel = True
End With

With AxCalendar1
	.HideSelection = True
End With

With AxCalendar1
	.HideSelection = False
End With

With AxCalendar1
	.MarkToday = True
End With

With AxCalendar1
	.MarkToday = True
	.set_Background(EXCALENDARLib.BackgroundPartEnum.exMarkToday,255)
End With

With AxCalendar1
	.ShowWeeks = True
End With

With AxCalendar1
	.ShowDays = False
End With

With AxCalendar1
	.ShowMonth = False
End With

With AxCalendar1
	.ShowYearScroll = False
End With

With AxCalendar1
	.ShowTodayButton = False
End With

With AxCalendar1
	.HeaderBackColor = Color.FromArgb(255,0,0)
	.ShowWeeks = True
End With

With AxCalendar1
	.HeaderForeColor = Color.FromArgb(255,0,0)
	.ShowWeeks = True
End With

With AxCalendar1
	.DrawGridLine = EXCALENDARLib.LineStyleEnum.SmallDots
End With

With AxCalendar1
	.DrawGridLine = EXCALENDARLib.LineStyleEnum.SmallDots
	.GridLineColor = Color.FromArgb(255,0,0)
End With

With AxCalendar1
	.AppearanceDay = EXCALENDARLib.AppearanceDayEnum.Day3D
	.GetOcx().BackColor = &H8000000f
End With

With AxCalendar1
	.AutoSize = False
	.FixedCellWidth = 32
	.FixedCellHeight = 24
End With

With AxCalendar1
	.AutoSize = False
	.FixedCellWidth = 22
	.FixedCellHeight = 16
End With

With AxCalendar1
	.AutoSize = False
	.FixedCellWidth = 24
	.FixedCellHeight = 16
	.set_WeekDayShortName(EXCALENDARLib.WeekDayEnum.Sunday,"Sun")
	.set_WeekDayShortName(EXCALENDARLib.WeekDayEnum.Monday,"Mon")
	.set_WeekDayShortName(EXCALENDARLib.WeekDayEnum.Tuesday,"Tue")
	.set_WeekDayShortName(EXCALENDARLib.WeekDayEnum.Wednesday,"Wed")
	.set_WeekDayShortName(EXCALENDARLib.WeekDayEnum.Thursday,"Thu")
	.set_WeekDayShortName(EXCALENDARLib.WeekDayEnum.Friday,"Fri")
	.set_WeekDayShortName(EXCALENDARLib.WeekDayEnum.Saturday,"Sat")
	.HeaderForeColor = Color.FromArgb(255,0,0)
	.HeaderBackColor = Color.FromArgb(255,255,255)
End With

With AxCalendar1
	.AutoSize = False
	.FixedCellWidth = 24
	.FixedCellHeight = 16
	.WeekDays = "Su Mo Tu We Th Fr Sa"
	.HeaderForeColor = Color.FromArgb(255,0,0)
	.HeaderBackColor = Color.FromArgb(255,255,255)
End With

With AxCalendar1
	.set_MonthName(EXCALENDARLib.MonthEnum.January,"Jan")
	.set_MonthName(EXCALENDARLib.MonthEnum.February,"Feb")
	.set_MonthName(EXCALENDARLib.MonthEnum.March,"Mar")
	.set_MonthName(EXCALENDARLib.MonthEnum.April,"Apr")
	.set_MonthName(EXCALENDARLib.MonthEnum.May,"May")
	.set_MonthName(EXCALENDARLib.MonthEnum.June,"Jun")
	.set_MonthName(EXCALENDARLib.MonthEnum.July,"Jul")
	.set_MonthName(EXCALENDARLib.MonthEnum.August,"Aug")
	.set_MonthName(EXCALENDARLib.MonthEnum.September,"Sep")
	.set_MonthName(EXCALENDARLib.MonthEnum.October,"Oct")
	.set_MonthName(EXCALENDARLib.MonthEnum.November,"Nov")
	.set_MonthName(EXCALENDARLib.MonthEnum.December,"Dec")
End With

With AxCalendar1
	.MonthNames = "Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec"
End With

With AxCalendar1
	.FirstDay = EXCALENDARLib.WeekDayEnum.Monday
End With

With AxCalendar1
	.Locked = True
End With

With AxCalendar1
	.ShowTodayButton = False
	.ShowYearScroll = False
	.MinMonthX = 2
	.MaxMonthX = 2
	.MinMonthY = 2
	.MaxMonthY = 2
End With

With AxCalendar1
	.DrawBorderLine = EXCALENDARLib.LineStyleEnum.LargeDots
End With

With AxCalendar1
	.DrawBorderLine = EXCALENDARLib.LineStyleEnum.LargeDots
	.BorderLineColor = Color.FromArgb(255,0,0)
End With

With AxCalendar1
	.SelBackColor = Color.FromArgb(0,0,0)
	.SelForeColor = Color.FromArgb(255,255,255)
End With

With AxCalendar1
	.BackColor = Color.FromArgb(255,255,255)
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.GetOcx().SelBackColor = &H1000000
	.SelForeColor = .BackColor
End With

With AxCalendar1
	.ShowMonthSelector = False
End With

With AxCalendar1
	.ShowYearSelector = False
End With

With AxCalendar1
	.ShowYearSelector = False
	.ShowMonthSelector = False
End With

With AxCalendar1
	.Date = #1/1/2001#
End With

With AxCalendar1
	.Date = #1/1/2001#
	.SelDate = #1/2/2001#
End With

With AxCalendar1
	.Date = .get_DoDate(2001,1,1)
	.SelDate = .get_DoDate(2001,1,2)
End With

With AxCalendar1
	.Date = .get_DoDate(2001,1,1)
End With

With AxCalendar1
	.SelDate = .Date
End With

With AxCalendar1
	.SingleSel = False
	.Date = #1/1/2001#
	.SelDate = #1/2/2001#
	.SelDate = #1/3/2001#
	.SelDate = #1/4/2001#
End With

With AxCalendar1
	.SingleSel = False
	.Date = #1/1/2001#
	.SelDate = #1/2/2001#
	.SelDate = #1/3/2001#
	.SelDate = #1/4/2001#
	.UnSelDate #1/3/2001#
End With

With AxCalendar1
	.TodayCaption = "Azi"
End With

With AxCalendar1
	.ToolTipDelay = 1
	With .ToolTipFont
		.Name = "Tahoma"
		.Size = 14
	End With
	.ToolTipWidth = 364
	.Events.Add(AxCalendar1.Date).Comment = "This is a text that shows up when the cursor hovers the date"
	.HideSelection = True
End With

With AxCalendar1
	.Template = "BackColor = RGB(255,0,0)"
End With

With AxCalendar1
	.ExecuteTemplate "BackColor = RGB(255,0,0)"
End With

With AxCalendar1
	.ToolTipDelay = 1
	.Events.Add(AxCalendar1.Date).Comment = "This is a text that shows up when the cursor hovers the date"
	.HideSelection = True
End With

With AxCalendar1
	.ToolTipDelay = 0
	.Events.Add(AxCalendar1.Date).Comment = "This is a text that shows up when the cursor hovers the date"
	.HideSelection = True
End With

With AxCalendar1
	.ToolTipWidth = 328
	.Events.Add(AxCalendar1.Date).Comment = "This is a text that shows up when the cursor hovers the date"
	.HideSelection = True
End With

With AxCalendar1
	.Date = #1/1/2001#
	.Value = #1/2/2001#
End With

With AxCalendar1
	.Date = #1/1/2001#
	.FocusDate = #1/2/2001#
End With

With AxCalendar1
	.ToolTipPopDelay = 10000
	.Events.Add(AxCalendar1.Date).Comment = "This is a text that shows up when the cursor hovers the date"
	.HideSelection = True
End With

With AxCalendar1
	.MinScrollYear = 2001
	.MaxScrollYear = 2010
End With

With AxCalendar1
	.NonworkingDays = 6
End With

With AxCalendar1
	.NonworkingDays = 0
End With

With AxCalendar1
	.NonworkingDays = 6
	.NonworkingDaysPattern = EXCALENDARLib.PatternEnum.exPatternCross
End With

With AxCalendar1
	.NonworkingDays = 6
	.NonworkingDaysPattern = EXCALENDARLib.PatternEnum.exPatternCross
	.NonworkingDaysColor = Color.FromArgb(255,0,0)
End With

With AxCalendar1
	.ShowNonMonthDays = False
End With

With AxCalendar1
	.CommentBackColor = Color.FromArgb(0,0,0)
	.Events.Add(AxCalendar1.Date).Comment = "This is a text that shows up when the cursor hovers the date"
	.HideSelection = True
End With

With AxCalendar1
	With .VisualAppearance
		.Add 11,"c:\exontrol\images\normal.ebn"
		.Add 1,"CP:11 4 2 -2 -2"
	End With
	.GetOcx().CommentBackColor = &H1000000
	.Events.Add(AxCalendar1.Date).Comment = "This is a text that shows up when the cursor hovers the date"
	.HideSelection = True
End With

With AxCalendar1
	.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
	.GetOcx().CommentBackColor = &H1000000
	.Events.Add(AxCalendar1.Date).Comment = "This is a text that shows up when the cursor hovers the date"
	.HideSelection = True
End With

With AxCalendar1
	.CommentBackColor = .BackColor
	.Events.Add(AxCalendar1.Date).Comment = "This is a text that shows up when the cursor hovers the date"
End With

With AxCalendar1
	.ShowNonMonthDays = False
	.Events.Add(AxCalendar1.FirstVisibleDate).Comment = "This is the first visible date"
End With

With AxCalendar1
	.ShowNonMonthDays = False
	.Events.Add(AxCalendar1.LastVisibleDate).Comment = "This is the last visible date"
End With

With AxCalendar1
	.Events.Add(AxCalendar1.Date).Bold = True
End With

With AxCalendar1
	.Events.Add(AxCalendar1.Date).Italic = True
End With

With AxCalendar1
	.Events.Add(AxCalendar1.Date).Underline = True
End With

With AxCalendar1
	.Events.Add(AxCalendar1.Date).StrikeOut = True
End With

With AxCalendar1
	.Events.Add(AxCalendar1.Date).ForeColor = 255
End With

With AxCalendar1
	.Events.Add(AxCalendar1.Date).BackColor = 255
End With

With AxCalendar1
	.Events.Add(AxCalendar1.Date).UserData = "your data"
End With

With AxCalendar1
	With .Events.Add(AxCalendar1.Date)
		.Comment = "This is a text that shows up when the cursor hovers the date"
		.CommentTitle = "T I T L E"
	End With
	.HideSelection = True
End With

With AxCalendar1
	.Events.Add(AxCalendar1.Date).Marker = True
End With

With AxCalendar1
	.Events.Add(AxCalendar1.Date).Disabled = True
End With

With AxCalendar1
	.AutoSize = False
	.FixedCellWidth = 36
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Events.Add(AxCalendar1.Date).Image = 1
End With

With AxCalendar1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Events.Add(AxCalendar1.Date).Image = 1
	.Events.Clear 
End With

Dim var_Count
With AxCalendar1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Events.Add(AxCalendar1.Date).Image = 1
	var_Count = .Events.Count
End With

With AxCalendar1
	.AutoSize = False
	.FixedCellWidth = 36
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0" & _
"/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1" & _
"/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qO" & _
"x3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.Events.Add(AxCalendar1.Date).Image = 1
	.Events.Remove AxCalendar1.Date
End With