我在VB中调用GetPrivateProfileString API 函数不成功，为什么？？？？

you mean you can use "WritePrivateProfileString"?Declare Function GetPrivateProfileString% Lib "Kernel"
           (ByVal lpAppName$, ByVal lpKeyName$, ByVal lpDefault$,
           ByVal lpReturnedString$, ByVal nSize%, ByVal lpFileName$)Declare Function WritePrivateProfileString% Lib "Kernel"
           (ByVal lpAppName$, ByVal lpKeyName$, ByVal lpString$,
           ByVal lpFileName$) 
Dim lpAppName$, lpKeyName$, lpDefault$, lpReturnString$,
             lpFileName$
         Dim Size%, Valid%, Path$, Succ%         '* Compare these to the NET.INI file that you created in step 1
         '* above.
         lpAppName$ = "NetPaths"
         lpKeyName$ = "Calculator"
         lpDefault$ = ""
         lpReturnString$ = Space$(128)
         Size% = Len(lpReturnString$)         '* This is the path and name the NET.INI file.
         lpFileName$ = "c:\net.ini"         '* This call will cause the path to CALC.EXE (that is,
         '* C:\WINDOWS\CALC.EXE) to be placed into lpReturnString$. The
         '* return value (assigned to Valid%) represents the number of
         '* characters read into lpReturnString$. Note that the
         '* following assignment must be placed on one line.
         Valid% = GetPrivateProfileString(lpAppName$, lpKeyName$,
                                          lpDefault$, lpReturnString$,
                                          Size%, lpFileName$)read this for details:
http://support.microsoft.com/support/kb/articles/Q75/6/39.ASP