Dim k, f, l As String, b As Long,
Dim a As New Compatibility.VB6.FixedLengthString(128, 0)
k = "inHospital"
f = "Server"
l = " C:\WINNT\pcwrHIS.ini"
b = GetPrivateProfileString(k, f, "", a.Value, 128, l)
MsgBox(a.Value, MsgBoxStyle.MsgBoxHelp)

这段程序运行后为空
我配置文件的Server=192。168。1。5
请问我哪里用错了，高手指点一下谢谢！！