vb.net structure 定义静态数组

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