Private Function SetAutoRun(ByVal blnYesNo As Boolean)
 
        Dim regKey As RegistryKey
        Dim strRegKeyAutoRun As String = _
          "Software\Microsoft\Windows\CurrentVersion\Run"
 
        regKey = Registry.CurrentUser
        regKey.OpenSubKey(strRegKeyAutoRun, True)
 
        If blnYesNo Then
            regKey.SetValue("TimeColl", Application.ExecutablePath)
        Else
            regKey.DeleteValue("TimeColl")
        End If