ByRef buf As SHARE_INFO_2, _

    #Region "SHARE_INFO_2 Structure Definition"

    Public Structure SHARE_INFO_2

This function will take as it's third parameter, a number of structures. The second parameter defines which level the third parameter structure is. Acceptable structures are SHARE_INFO_2, SHARE_INFO_502, and under Windows 9x/ME, SHARE_INFO_50.

Dim shi2 As SHARE_INFO_2

            Dim t As Type = IIf((2 = level), GetType(SHARE_INFO_2), GetType(SHARE_INFO_1))

                Dim si As SHARE_INFO_2 = DirectCast(Marshal.PtrToStructure(pItem, t), SHARE_INFO_2)

Dim shi2 As SHARE_INFO_2

   nStructSize = Marshal.SizeOf(GetType(SHARE_INFO_2))

     shi2 = Marshal.PtrToStructure(currentPtr, GetType(SHARE_INFO_2))

     currentPtr = New IntPtr(currentPtr.ToInt32 + Marshal.SizeOf(GetType(SHARE_INFO_2)))

    Structure SHARE_INFO_2

        Dim t As Type = IIf((2 = level), GetType(SHARE_INFO_2), GetType(SHARE_INFO_1))

            Dim si As SHARE_INFO_2 = DirectCast(Marshal.PtrToStructure(pItem, t), SHARE_INFO_2)

    Structure SHARE_INFO_2

        Dim pBuffer As New IntPtr(Marshal.SizeOf(GetType(SHARE_INFO_2)))

        Dim pCurrent As SHARE_INFO_2

            ' Convert Buffer to SHARE_INFO_2

            pCurrent = CType(Marshal.PtrToStructure(currentPtr, GetType(SHARE_INFO_2)), SHARE_INFO_2)

        struct SHARE_INFO_2

                SHARE_INFO_2 shareInfo = (SHARE_INFO_2)

                    Marshal.PtrToStructure(ptr, typeof(SHARE_INFO_2));

    public struct SHARE_INFO_2

    Private Structure SHARE_INFO_2