Код:
Dim key As Microsoft.Win32.RegistryKey
key = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("software\Microsoft\Windows\CurrentVersion\run\")
Dim name As String = CType(key.GetValue("Имя ключа"), String)----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Для Поисковиков:
Исходники на Бейсике;
Программа на Бейсике;
Реестр;
Работа с реестром;