Код:
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() ' закрываешь реестр после записи
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Для Поисковиков:
Исходники на Бейсике;
Программа на Бейсике;
Реестр;
Работа с реестром;