Код:
Dim regSave As Microsoft.Win32.RegistryKey
regSave = Microsoft.Win32.Registry.LocalMachine.CreateSubKey("software\Microsoft\Windows\CurrentVersion\run\")
Dim newVersion As String = "test" ' параметры создаваемого ключа
regSave.SetValue("Version", newVersion) ' записываешь(имя ключа, параметры)
regSave.Close() ' закрываешь реестр после записи----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Для Поисковиков:
Исходники на Бейсике;
Программа на Бейсике;
Реестр;
Работа с реестром;