Dim i, numberOfInterfaces as Integer

    numberOfInterfaces = i

    For i = 0 to numberOfInterfaces - 1

//note that for this to work you will need to change the signature from 'int nIndex' to 'GWL nIndex' in all three places

//note that for this to work you will need to change the signature from 'int nIndex' to 'GWL nIndex' in all three places

' Purpose: stript the string from non-letter characters and replace by spaces

// Runs notepad and places it's window into form.

/// The SetProp function adds a new entry or changes an existing entry in the property list of the specified window. The function adds a new entry to the list if the specified character string does not exist already in the list. The new entry contains the string and the handle. Otherwise, the function replaces the string's current handle with the specified handle.

    ///         Places the window at the bottom of the Z order. If the hWnd parameter identifies a topmost

    ///         Places the window above all non-topmost windows (that is, behind all topmost windows). This

    ///         <term>HWND_TOP ((HWND)0)</term><description>Places the window at the top of the Z order.</description>

    ///         Places the window above all non-topmost windows. The window maintains its topmost position

        ///     Places the window at the top of the Z order.

        ///     Places the window at the bottom of the Z order. If the hWnd parameter identifies a topmost window, the window loses its topmost status and is placed at the bottom of all other windows.

        ///     Places the window above all non-topmost windows. The window maintains its topmost position even when it is deactivated.

        ///     Places the window above all non-topmost windows (that is, behind all topmost windows). This flag has no effect if the window is already a non-topmost window.

    private const int LF_FACESIZE = 32;

        /// than <see cref="LF_FACESIZE"/> including the terminating '\0'.

        [MarshalAs(UnmanagedType.ByValTStr, SizeConst=LF_FACESIZE)]

        public short AceSize;

    ' Get an array of ACEs

Set dwAclRevision to ACL_REVISION_DS if the access control list supports object-specific ACEs, otherwise use ACL_REVISION.

const int INTERFACESAFE_FOR_UNTRUSTED_CALLER = 0x00000001;

const int INTERFACESAFE_FOR_UNTRUSTED_DATA = 0x00000002;

    /// Retrieves the color value of the first pixel in the image and replaces the corresponding entry in the color table

    /// Searches the color table for the image and replaces the following shades of gray with the corresponding 3-D color: Color Replaced with

    ''' Retrieves the color value of the first pixel in the image and replaces the corresponding entry in the color table

    ''' Searches the color table for the image and replaces the following shades of gray with the corresponding 3-D color: Color Replaced with

    public static PropertyKey WPD_COMMAND_CLASS_EXTENSION_REGISTER_SERVICE_INTERFACES = new PropertyKey(0x7F0779B5, 0xFA2B, 0x4766, 0x9C, 0xB2, 0xF7, 0x3B, 0xA3, 0x0B, 0x67, 0x58, 2);

    public static PropertyKey WPD_COMMAND_CLASS_EXTENSION_UNREGISTER_SERVICE_INTERFACES = new PropertyKey(0x7F0779B5, 0xFA2B, 0x4766, 0x9C, 0xB2, 0xF7, 0x3B, 0xA3, 0x0B, 0x67, 0x58, 3);

    public static PropertyKey WPD_PROPERTY_CLASS_EXTENSION_SERVICE_INTERFACES = new PropertyKey(0x7F0779B5, 0xFA2B, 0x4766, 0x9C, 0xB2, 0xF7, 0x3B, 0xA3, 0x0B, 0x67, 0x58, 1002);

    public enum ColorSpaces

FSCTL constants are found in WinIoCtl.h, using CTL_CODE()function to Logical OR together FILE_DEVICE_FILE_SYSTEM (9) shifted left 16 places;

a given function number shifted left 2 places;

along with FILE_ANY_ACCESS or FILE_SPECIAL_ACCESS (both are 0) or FILE_READ_ACCESS (1), FILE_WRITE_ACCESS (2) (both are also defined in ntioapi.h as FILE_READ_DATA and FILE_WRITE_DATA), or the pair Logically ORed with one another shifted left 14 places.

        /// No interfaces have been exported.

        /// No interfaces have been registered.

        public const int RPC_S_NO_INTERFACES = 1817;

        /// Not all the requested interfaces were available

        public const int CO_S_NOTALLINTERFACES = 0x00080012;

        /// A call control interfaces was called with invalid data.

        /// Security must be initialized before any interfaces are marshalled or unmarshalled. It cannot be changed once initialized.

        /// The number of ACEs in an ACL exceeds the system limit.

        /// Not all the DENY_ACCESS ACEs are arranged in front of the GRANT_ACCESS ACEs in the stream.

        public const int CO_E_ACESINWRONGORDER = (int)(0x8001013A - 0x100000000);

        public const int COMQC_E_NO_QUEUEABLE_INTERFACES = (int)(0x80110601 - 0x100000000);

// "\"" required for printer name with spaces

Partially complete... http://workspaces.gotdotnet.com/dm

Partially complete... http://workspaces.gotdotnet.com/dm

Partially complete... http://workspaces.gotdotnet.com/dm

Partially complete... http://workspaces.gotdotnet.com/dm

        [DllImport("Wlanapi", EntryPoint = "WlanEnumInterfaces")]

        public static extern uint WlanEnumInterfaces([In] IntPtr hClientHandle, IntPtr pReserved, ref IntPtr ppInterfaceList);

     <DllImport("Wlanapi", EntryPoint := "WlanEnumInterfaces")> _

     Public Shared Function WlanEnumInterfaces(<[In]> ByVal hClientHandle As IntPtr, ByVal pReserved As IntPtr, ByRef ppInterfaceList As IntPtr) As UInteger

        if (WlanEnumInterfaces(handle, IntPtr.Zero, ref ptr) != 0)

        // Call wlanqueryinterface for all the interfaces in the list

     If WlanEnumInterfaces(handle, IntPtr.Zero, ptr) <> 0 Then

     ' Call wlanqueryinterface for all the interfaces in the list

        // Search in all network interfaces that support IPv4.

        NetworkInterface ipv4Interface = (from thisInterface in NetworkInterface.GetAllNetworkInterfaces()

        // Search in all network interfaces that support IPv6.

        NetworkInterface ipv6Interface = (from thisInterface in NetworkInterface.GetAllNetworkInterfaces()