189 8069 5689
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代表真。
不知是否详细。
干嘛不直接用系统时间呢？
在start按下时 textbox4.text=now
在stop按下时 textbox5.text=now
加个timer，两个label，以下是代码:
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Label1.Text = Format(Now(), "yyyy-MM-dd HH:mm:ss")
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label2.Text = Format(Now(), "yyyy-MM-dd HH:mm:ss")
If DateDiff(DateInterval.Hour, DateTime.Parse(Label1.Text), DateTime.Parse(Label2.Text)) = 3 Then
MsgBox("超过3小时了！", , "信息提示")
Timer1.Enabled = False 'timer终止，不然会一直谈对话框！
End If
End Sub