怎么将ras中的RasEnumConnections函数和结构转化成vb声明

Question

Declare Function RasEnumConnections Lib 库名 ( _
        lprasconn As RASCONN, _
        lpcb As Long, _
        lpcConnections As Long)As Long
Type RASCONN
    dwSize As Long
    hrasconn As Long
    szEntryName(0 To RAS_MaxEntryName) As Byte
    #If WINVER >= &H400 Then
        szDeviceType(0 To RAS_MaxDeviceType) As Byte
        szDeviceName(0 To RAS_MaxDeviceName) As Byte
    #End If
    #If WINVER >= &H401 Then
        szPhonebook(0 To MAX_PATH-1) As Byte
        dwSubEntry As Long
    #End If
    #If WINVER >= &H500 Then
        guidEntry As Long
    #End If
    #If WINVER >= &H500 Then
        dwSessionId As Long
        dwFlags As Long
        luid As Long
    #End If
End Type

Answer 1

Type RASCONN
    dwSize As Long
    hrasconn As Long
    szEntryName(0 To RAS_MaxEntryName) As Byte
    #If WINVER >= &H400 Then
        szDeviceType(0 To RAS_MaxDeviceType) As Byte
        szDeviceName(0 To RAS_MaxDeviceName) As Byte
    #End If
    #If WINVER >= &H401 Then
        szPhonebook(0 To MAX_PATH-1) As Byte
        dwSubEntry As Long
    #End If
    #If WINVER >= &H500 Then
        guidEntry As Long
    #End If
    #If WINVER >= &H500 Then
        dwSessionId As Long
        dwFlags As Long
        luid As Long
    #End If
End TypePrivate Declare Function RasEnumConnections Lib 库名 ( _
        lprasconn As RASCONN, _
        lpcb As Long, _
        lpcConnections As Long)As Long