Visual Basic

<br />
Private Structure WSADATA<br />
        Dim wVersion As Short<br />
        Dim wHighVersion As Short<br />
        <vbfixedarray(wsadescription_len)> Dim szDescription() As Byte<br />
        <vbfixedarray(wsasys_status_len)> Dim szSystemStatus() As Byte<br />
        Dim iMaxSockets As Short<br />
        Dim iMaxUdpDg As Short<br />
        Dim lpszVendorInfo As Integer<br />
<br />
        Public Sub Initialize()<br />
            ReDim szDescription(WSADescription_Len)<br />
            ReDim szSystemStatus(WSASYS_Status_Len)<br />
        End Sub<br />
    End Structure<br />
<br />
  Private Const WS_VERSION_REQD As Short = &H101S<br />
<br />
 Dim WSAD As New WSADATA<br />
 Dim iReturn As Short<br />
  iReturn = WSAStartup(WS_VERSION_REQD, WSAD)------>This statement is returning an error saying that<br />
<br />
"System.AccessViolationException was unhandled<br />
  Message="Attempted to read or write protected memory. This is often an indication that other memory is corrupt.""<br />
</vbfixedarray(wsasys_status_len)></vbfixedarray(wsadescription_len)>