Const RAS95_MaxEntryName = 256
Const RAS95_MaxDeviceName = 128
Const RAS_MaxDeviceType = 16
Structure RASCONN95
Public dwSize As Long
Public hRasConn As Long
Public szEntryName() As Byte
Public szDeviceType() As Byte
Public szDeviceName() As Byte
Sub Initialize()
ReDim szEntryName(RAS95_MaxEntryName)
ReDim szDeviceType(RAS_MaxDeviceType)
ReDim szDeviceName(RAS95_MaxDeviceName)
End Sub
End Structure
然后声明时：
dim rs as new RASCONN95
rs.Initialize