1、如果要设置时间变量应该这样：
创新互联公司专业为企业提供随县网站建设、随县做网站、随县网站设计、随县网站制作等企业网站建设、网页设计与制作、随县企业网站模板建站服务，十载随县做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。
Dim a As Date = Date.FromOADate(24 / 9 / 2010)
2、Sub SaveSetting(ByVal AppName As String, ByVal Section As String, ByVal Key As String, ByVal Setting As String)
此函数只能在注册表的“HKEY_CURRENT_USER\Software\VB and VBA Program Settings\”创建应用程序的参数设置，这个函数是从VB6继承过来的，是为了升级vb6代码而使用的。函数中的AppName为项目名，Section为节点，Key为键名，Setting为键值。例如SaveSetting("MyName","Section1","MainKey","Settingvalue")将会在“HKEY_CURRENT_USER\Software\VB and VBA Program Settings\MyName”创建一个节点"Section1"，并在Section1下创建一个键名为"MainKey"，值为"Settingvalue"的键。
至于如何保存RadioButton的值，可以先用"CStr"函数或"CInt"函数将RadioButton是否被选中的Boolean值转换为String或Integer，再使用SaveSetting函数存入注册表。注意：当使用Cstr函数转换Boolean时，如果Boolean为“真”，转换的String就是“True”，反之则是“False”，转换为Integer是0代表假，1代表真。
不知是否详细。
可以使用VB.NET中的DataTime对象的AddMonths方法：
Dim d1 As Date = Now
MsgBox(d1) '显示现在的机器日期与时间
MsgBox(d1.AddMonths(2)) '显示现在的机器日期加上2个月的对应日期与时间
MsgBox(d1.AddMonths(-1)) '显示现在的机器日期减掉1个月的对应日期与时间
DataTime对象的方法很多，你可以通过在线查阅，例如：
d1.Add()
d1.AddDays()
d1.AddHours()
d1.AddMinutes()
d1.AddSeconds()
d1.AddYears()
等等！
注意：从字面意思可以理解是加，而括号里是填写对应的数值，当数值为负数，起到减的作用了。
将时间转换为指定的字符串格式用：Now.ToString("yyyyMMddHHmmss")就Ok了。
例如：年份用小写yyyy(大写不识别)，大写MM识别为月份，小写mm识别为分钟，日期天为大写DD(小写不识别)，
小时大写HH识别为24小时制，小写hh识别为12小时制，秒用小写ss(大写不识别)
补充：Visual Basic.NET是基于微软.NET Framework之上的面向对象的编程语言。
其在调试时是以解释型语言方式运作,而输出为EXE程序是是以编译型语言方式运作。
可以看作是Visual Basic在.Net Framework平台上的升级版本，增强了对面向对象的支持。大多的VB.Net程序员使用Visual Studio .Net作为IDE（integrated development environment).SharpDevelop是另一种可用的开源的IDE。
VB.Net需要在.Net Framework平台上才能执行。