求 VB代码，设置环境变量

Question

设置环境变量代码现在的许多软件，都需要加环境变量，虽然 我的电脑>高级>环境变量 里可以设置
但个人总是觉得好麻烦，特别是重装系统后，又要再设置一遍。求VB环境变量设置代码不啰唆了， 问题如下：
求VB代码，能设置如下环境变量：
BLAS_VERSION=C:\MATLAB7\bin\win32\atlas_Athlon.dll
即环境变量名：BLAS_VERSION      
      变量值：C:\MATLAB7\bin\win32\atlas_Athlon.dll

Answer 1

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）     
  
shell  dos的set命令

Answer 2

写个 Bat，没有重装后执行一把不是更方便？

Answer 3

vb自己就能获取环境变量，Environ函数，比如Environ（"PAHT"),Environ(1)...
vb自己不能设置。。