реестр и 2 chekbox проверка и отображение

[QweЯty]

есть 2 checkbox'a
и есть/будет ключ реестра:
"SOFTWARE\Microsoft\Windows\CurrentVersion\Run"

раньше было так:

Код: Выделить всё

    'Private Sub AddAutoRun_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddAutoRun.CheckedChanged
    '    Dim Start As Microsoft.Win32.RegistryKey = My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
    '    If AddAutoRun.Checked = True Then
    '        Start.SetValue("MyProgramm", Application.ExecutablePath)
    '    Else
    '        Start.DeleteValue("MyProgramm")
    '    End If
    'End Sub

сейчас вопрос встал по другому...

нужно чтобы AddAutoRun.Checked и DelAutoRun.Checked меняли свое положение на true/false в зависимости от того есть ли ключ в реестре.

так понял что проверку на наличие ключа надо делать в load формы...
закономерный вопрос а как проверить если ключ... а дальше уже понятно

[1Steps]

Ты решил, чтобы за тебя форум написал приложение?
Включай моск.

Код: Выделить всё

    Private Function RegExists() As Boolean
        Dim regKey As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
        Dim b As Boolean = regKey.GetValue(Application.ProductName) IsNot Nothing
        regKey.Close()
        Return b
    End Function

Следующий вопрос будет: - "Почему ключ не существует, если я его прописал?"

[QweЯty]

ну, "программу" я уже написал... с горем пополам....
убираю баги возникшие с новыми запросами и собственно, переделываю под запросы народа, чтоб его...

я вообще не программист:( надо вот было спаять метеостанцию для универа в качестве курсовой.. ну а студенты... народ очень любящий халяву... вот и запрягли теперь клиента сделать, чтоб персонально отображалось...

и вопроса не будет, примерно понял что возвращает функция