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