' Deklaration
Declare Function SetEnvironmentVariable Lib "kernel32.dll" _
  Alias "SetEnvironmentVariableA" ( _
  ByVal lpName As String, _
  ByVal lpValue As String) As Long

Dim nResult As Long
nResult = SetEnvironmentVariable("Variable", "Zeichenfolge")

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de