Hi

Ihave problem while using WSAStartup method of Windows API in vb.net
This is the code i have used .
<Code>
Private Const WS_VERSION_REQD As Short = &H101S
Private Structure WSADATA
       Dim wVersion As Short
       Dim wHighVersion As Short
       <VBFixedArray(WSADescription_Len)> Dim szDescription() As Byte
       <VBFixedArray(WSASYS_Status_Len)> Dim szSystemStatus() As Byte
       Dim iMaxSockets As Short
       Dim iMaxUdpDg As Short
       Dim lpszVendorInfo As Integer

        Public Sub Initialize()
           ReDim szDescription(WSADescription_Len)
           ReDim szSystemStatus(WSASYS_Status_Len)
       End Sub
   End Structure
Dim WSAD As New WSADATA
Dim iReturn As Short

iReturn = WSAStartup(WS_VERSION_REQD, WSAD)
</Code>