Form1
Calendar Demo
Form158
Command1
Calendar
Calendar
btnMonth
	SSCommand
Command3D1
btnYear
	SSCommand
Command3D1
Picture1
Picture2
lblMonth
Label1
lblYear
Label1
Label1
Click button to display calendar.  Clicking on a date highlights and sets it. A set date can be removed by double clicking on it.  Feel free to improve upon.  Any suggestions to speed display when you advance or retard the calendar with the arrows would be appreciated. This just shows what's possible with VB, alone.  Much was suggested by  VB Knowledge Base article,  "How to Make a Spreadsheet-style Grid that Allows Editing". I do contract programming in VB and Access and would appreciate any leads for work you can pass my way.                                        Glenn Silverman :  CompuServe 71450,2750
Picture1_Click
Picture1_GotFocus
Text1
Picture1_MouseDown
Button
Shiftd
grid_col
grid_row
	grid_cols2
grid_line_colo
	grid_rows
grid_line_row
grid_edit_move
	Form_LoadO
Picture1z
BorderStyle
	grid_text<
	BackColor
CurrentX%
CurrentY
grid_col_maxi
grid_row_max
grid_col_rows
grid_col_row
grid_build
Rowsn
Width6
HeightR
draw_grid_lines
color
Coordinate
fill_cell_array
upper/
lower
	ShowMonth
date1
date2
days@
firstV
	currIndex
lblYear
lblMonth
DayCalc
grdCal
BuildCal
DaysOfWeek|
frmCal
SetControl
ControlText
	FixedRows?
	FixedCols
	RowHeight
ColWidtha
FixedAlignmentP
ColAlignment
btnYear
Caption
Visible5
btnMonth
lblDay+
CalendarE
build
Control
bkCol
tcolo
FontBold
	ForeColor
	Alignment
AdvanceMonth
RetardMonth
btnYear_Click
Index
btnMonth_Click
grid_cell_move
Label1
Picture
Picture2
Timer1_Timer
txtColor
AdvanceYears
btnYear_MouseDown
RetardYear
btnYear_KeyDown
KeyCode
start
shadow_grid
Picture2_Click
Picture2_DblClick$
SetDate
SetDatecol
date_set0
calDate
uppery
Intweger
set_date
Command1_Click
Max grid size
grid dimensions
Current grid size
Current cell positionn
Grid string contents
Grid cell numbers
Grid line positions
Calendar date setting
AdvanceMonth
AdvanceYear
btnMonth_Click
btnYear_Click
BuildCal
Set control dimensions
Set headings
set weekday heads
set grdCal
build cal grid
Set buttons
Command1_Click
ControlText
date_set
DayCalc
clear cell
display day number in cell 
store day in grid_text array
calendar date settingt
draw_grid_lines
fill_cell_array
Form_Load
grid_build
set grid sizev
remove borders
set col widths and row heights
fill cell array
create grid shadows
grid_cell_move
set new grid current cell
Move label box to new cell
Copy contents of new cell to label
Picture1_MouseDown
Picture2_DblClick
RetardMonth
RetardYear
set_date
Find cell clicked in
set the new date
SetControl
shadow_grid
ShowMonth