可以帮翻成vb的吗解决方法

可以帮翻成vb的吗
typedef   struct   _IP_ADAPTER_INFO   {
    struct   _IP_ADAPTER_INFO*   Next;
//链表指针域,我们通过这个来遍历静态键表
    DWORD   ComboIndex;//保留未用
    char   AdapterName[MAX_ADAPTER_NAME_LENGTH   +   4];
//网卡名
char   Description[MAX_ADAPTER_DESCRIPTION_LENGTH   +   4];
//对网卡的描述,实际上好象是//驱动程序的名字
    UINT   AddressLength;
//物理地址的长度,通过这个我们才能正确的显示下面数组中的物理地
//址
    BYTE   Address[MAX_ADAPTER_ADDRESS_LENGTH];
//物理地址,每个字节存放一个十六进制的数
//值,我们配合上一个数据域在printf中用/x格式把每个字节输出。
    DWORD   Index;//网卡索引号
    UINT   Type;//网卡类型
    UINT   DhcpEnabled;//是否启用了DHCP动态IP分配?
    PIP_ADDR_STRING   CurrentIpAddress;//当前使用的IP地址
    IP_ADDR_STRING   IpAddressList;
//绑定到此网卡的IP地址链表,重要项目
    IP_ADDR_STRING   GatewayList;
//网关地址链表,重要项目
    IP_ADDR_STRING   DhcpServer;
//DHCP服务器地址,只有在DhcpEnabled==TRUE的情况下才有
//效
    BOOL   HaveWins;//是否启用了WINS?
      IP_ADDR_STRING   PrimaryWinsServer;
//主WINS地址
    IP_ADDR_STRING   SecondaryWinsServer;
//辅WINS地址
    time_t   LeaseObtained;
//当前DHCP租借获取的时间
    time_t   LeaseExpires;  
//当前DHCP租借失效时间。这两个数据结构只有在启用了DHCP时才
//有用。
}   IP_ADAPTER_INFO,   *PIP_ADAPTER_INFO;


------解决方案--------------------
Private Const MAX_ADAPTER_NAME_LENGTH As Long = 256
Private Const MAX_ADAPTER_DESCRIPTION_LENGTH As Long = 128
Private Const MAX_ADAPTER_ADDRESS_LENGTH As Long = 8
Private Const ERROR_SUCCESS As Long = 0

Private Type IP_ADDRESS_STRING
IpAddr(0 To 15) As Byte
End Type

Private Type IP_MASK_STRING
IpMask(0 To 15) As Byte
End Type

Private Type IP_ADDR_STRING
dwNext As Long
IpAddress As IP_ADDRESS_STRING
IpMask As IP_MASK_STRING
dwContext As Long
End Type

Private Type IP_ADAPTER_INFO
dwNext As Long
ComboIndex As Long 'reserved
sAdapterName(0 To (MAX_ADAPTER_NAME_LENGTH + 3)) As Byte
sDescription(0 To (MAX_ADAPTER_DESCRIPTION_LENGTH + 3)) As Byte
dwAddressLength As Long
sIPAddress(0 To (MAX_ADAPTER_ADDRESS_LENGTH - 1)) As Byte
dwIndex As Long
uType As Long
uDhcpEnabled As Long
CurrentIpAddress As Long
IpAddressList As IP_ADDR_STRING
GatewayList As IP_ADDR_STRING
DhcpServer As IP_ADDR_STRING
bHaveWins As Long
PrimaryWinsServer As IP_ADDR_STRING
SecondaryWinsServer As IP_ADDR_STRING
LeaseObtained As Long
LeaseExpires As Long
End Type