private delegate bool EnumDesktopsDelegate(string desktop, IntPtr lParam);

Private Delegate Function EnumDesktopsDelegate(ByVal desktop As String, ByVal lParam As IntPtr) As Boolean

    WINSTA_ENUMDESKTOPS = 0x00000001,

    WINSTA_ENUMDESKTOPS = &H1

    WINSTA_ENUMDESKTOPS     = 0x0001,

    WINSTA_ALL_ACCESS       = ( WINSTA_ENUMDESKTOPS | WINSTA_READATTRIBUTES | WINSTA_ACCESSCLIPBOARD |

static extern bool EnumDesktops(IntPtr hwinsta, EnumDesktopsDelegate

Private Function EnumDesktops(ByVal hwinsta As IntPtr, ByVal lpEnumFunc As EnumDesktopsDelegate, ByVal lParam As IntPtr) As Boolean

EnumDesktopsDelegate