Public Declare Function RegSetValueEx_[s]String[/s]DWORD Lib _
  "advapi32.dll" Alias _
    "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, _
    ByVal Reserved As Long, ByVal dwType As Long, [s]ByVal[/s] lpData As _
    Long, ByVal _
    cbData As Long) As Long
 
Public Function SetRun() As Boolean
  Dim lResult As Long
  Dim lKeyHandle As Long
  Dim sField As String
  Dim lPath As Long
  sField = "ProxyEnable"
  lPath = 1
  lResult = RegOpenKeyEx(root, key, 0, KEY_ALL_ACCESS, lKeyHandle)
  If lResult <> ERROR_SUCCESS Then
    SetRun = False
    Exit Function
  End If
  lResult = RegSetValueEx_DWORD(lKeyHandle, sField, 0, reg_dword, lPath, _
    4)[color=green]'ein DWORD hat immer 4 bytes
  RegCloseKey lKeyHandle
  SetRun = (lResult = ERROR_SUCCESS)
End Function

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...