请教高手：关于98下临时改变系统环境变量的方法

Question

设置系统环境变量的API是SetEnvironmentVariable  我想知道这个API能不能完成如题的功能，如果可以的话，能不能给个详细的例子？谢谢 下面是该API的的具体说明。
  Declare Function SetEnvironmentVariable Lib "kernel32" Alias "SetEnvironmentVariableA" (ByVal lpName As String, ByVal lpValue As String) As Long 说明 
  将一个环境变量设为指定的值 返回值 
  Long，TRUE（非零）表示成功，否则返回零。会设置GetLastError 参数表 参数 类型及说明 
lpName String，欲设置的环境变量的名称。如具有这个名称的一个环境变量尚不存在，则函数会自动创建它 
lpValue String，欲为变量设置的新值。如为NULL，表示清除一个现成值（用vbNullString常数向这个函数传递一个NULL） 

Answer 1

Private Declare Function SetEnvironmentVariable Lib "kernel32" Alias "SetEnvironmentVariableA" (ByVal lpName As String, ByVal lpValue As String) As Long
Private Sub Form_Load()
    'This code was submitted by Brad McDonald ([email protected])
    SetEnvironmentVariable "API-Guide", "Rocks!"
    Shell "CMD.EXE"
    'In the CMD windows type SET, you'll see the Environment Variable set, just for that session.
End Sub