Function cal_BeforeUpdate(ref Cancel)
	if Month(cal.Value) = 9
		Cancel = True
	end if
End Function