Visual Basic6. как нажатием кнопки command 1 изменить реестр?

Реестр windows?
Тогда используйте API-функции. А отличие от предложенного Ian, работают с любой веткой реестра и с любыми, а не только строковыми параметрами
Но, их надо декларировать в модуле:
' создать ключ (ветку реестра, каталог, как вы называете)
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" _
(ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
' открыть существующий ключ (если ключ отсутствует => ошибка, возвращает 2)
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" _
(ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
' закрыть ключ после работы с ним (если hKey=0 возвращает 2)
Private Declare Function RegCloseKey Lib "advapi32.dll" _
(ByVal hKey As Long) As Long
' задать значение параметра (в т. ч. и по-умолчанию)
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" _
(ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, _
ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
' Note that if you declare the lpData parameter as String, you must pass it By Value.
' прочесть значения параметра (в т. ч. по-умолчанию) [исходная функция]
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" _
(ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, _
lpType As Long, lpData As Any, lpcbData As Long) As Long
' Note that if you declare the lpData parameter as String, you must pass it By Value.
' прочесть значения параметра [моя для String ByVal]
Private Declare Function RegQueryValueExStr Lib "advapi32.dll" Alias "RegQueryValueExA" _
(ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, _
lpType As Long, ByVal lpData As String, lpcbData As Long) As Long
' Note that if you declare the lpData parameter as String, you must pass it By Value.

hKey задает 1 из 6 главных ветвей реестра, = константе, например:
Const HKEY_LOCAL_MACHINE = &H80000002

Порядок работы:
1. Создать ключ, если его еще нет
2. Открыть ключ
3. Прочесть/установть параметр
4. Закрыть ключ

Посмотрите тут, достаточно подробно описано...