' 有关的API声明和定义
Private Declare Function RasEnumConnections Lib " RasApi32.dll " Alias " RasEnumConnectionsA " (lpRasCon As Any, lpcb As Long , lpcConnections As Long ) As Long
Private Declare Function RasGetConnectStatus Lib " RasApi32.dll " Alias " RasGetConnectStatusA " (ByVal hRasCon As Long , lpStatus As Any) As Long
' 常数和变量的设定
Const RAS95_MaxEntryName = 256