[StructLayout(LayoutKind.Sequential, CharSet = CharSet.Unicode)]
struct WLAN_AVAILABLE_NETWORK_LIST
    {
        internal   uint dwNumberOfItems;
        internal   uint dwIndex;
        internal   WLAN_AVAILABLE_NETWORK[] wlanAvailableNetwork;

    internal WLAN_AVAILABLE_NETWORK_LIST(IntPtr ppAvailableNetworkList)
        {
            dwNumberOfItems = (uint)Marshal.ReadInt32(ppAvailableNetworkList);
            dwIndex = (uint)Marshal.ReadInt32(ppAvailableNetworkList, 4);
            wlanAvailableNetwork = new WLAN_AVAILABLE_NETWORK[dwNumberOfItems];

            for (int i = 0; i < dwNumberOfItems; i++)
            {
               IntPtr pWlanAvailableNetwork = new IntPtr(ppAvailableNetworkList.ToInt32() + i * Marshal.SizeOf(typeof(WLAN_AVAILABLE_NETWORK)) + 8);
                wlanAvailableNetwork[i] = (WLAN_AVAILABLE_NETWORK)Marshal.PtrToStructure(pWlanAvailableNetwork, typeof(WLAN_AVAILABLE_NETWORK));
            }
         }
    }
    public struct WLAN_AVAILABLE_NETWORK
    {
        [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 256)]
        public string strProfileName;
        public DOT11_SSID dot11Ssid;
        public DOT11_BSS_TYPE dot11BssType;
        public uint uNumberOfBssids;
        public bool bNetworkConnectable;
        public uint wlanNotConnectableReason;
        public uint uNumberOfPhyTypes;
        [MarshalAs(UnmanagedType.ByValArray, SizeConst = 8)]
        public DOT11_PHY_TYPE[] dot11PhyTypes;
        public bool bMorePhyTypes;
        public uint wlanSignalQuality;
        public bool bSecurityEnabled;
        public DOT11_AUTH_ALGORITHM dot11DefaultAuthAlgorithm;
        public DOT11_CIPHER_ALGORITHM dot11DefaultCipherAlgorithm;
        public uint dwFlags;
        public uint dwReserved;
    }

VB Definition:

<StructLayout(LayoutKind.Sequential, CharSet := CharSet.Unicode)> _
Friend Structure WLAN_AVAILABLE_NETWORK_LIST
            Friend dwNumberOfItems As UInteger
            Friend dwIndex As UInteger
            Friend wlanAvailableNetwork() As WLAN_AVAILABLE_NETWORK

        Friend Sub New(ByVal ppAvailableNetworkList As IntPtr)
                dwNumberOfItems = CUInt(Marshal.ReadInt32(ppAvailableNetworkList))
                    dwIndex = CUInt(Marshal.ReadInt32(ppAvailableNetworkList, 4))
                    wlanAvailableNetwork = New WLAN_AVAILABLE_NETWORK(dwNumberOfItems - 1){}

                    For i As Integer = 0 To dwNumberOfItems - 1
                       Dim pWlanAvailableNetwork As New IntPtr(ppAvailableNetworkList.ToInt32() + i * Marshal.SizeOf(GetType(WLAN_AVAILABLE_NETWORK)) + 8)
                        wlanAvailableNetwork(i) = CType(Marshal.PtrToStructure(pWlanAvailableNetwork, GetType(WLAN_AVAILABLE_NETWORK)), WLAN_AVAILABLE_NETWORK)
                    Next i
        End Sub
End Structure
<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode)> _
    Public Structure WLAN_AVAILABLE_NETWORK
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=256)> _
        Public strProfileName As String
        Public dot11Ssid As DOT11_SSID
        Public dot11BssType As DOT11_BSS_TYPE
        Public uNumberOfBssids As UInteger
        Public bNetworkConnectable As Boolean
        Public wlanNotConnectableReason As UInteger
        Public uNumberOfPhyTypes As UInteger
        <MarshalAs(UnmanagedType.ByValArray, SizeConst:=8)> _
        Public dot11PhyTypes As DOT11_PHY_TYPE()
        Public bMorePhyTypes As Boolean
        Public wlanSignalQuality As UInteger
        Public bSecurityEnabled As Boolean
        Public dot11DefaultAuthAlgorithm As DOT11_AUTH_ALGORITHM
        Public dot11DefaultCipherAlgorithm As DOT11_CIPHER_ALGORITHM
        Public dwFlags As UInteger
        Public dwReserved As UInteger
    End Structure