Private Declare Function CreateDesktop Lib "user32" Alias "CreateDesktopA" _
(ByVal lpszDesktop As String, ByVal lpszDevice As String, pDevmode As String, _
ByVal dwFlags As Long, ByVal dwDesiredAccess As Long, ByRef lpsa As SECURITY_ATTRIBUTES) As Long
Private Const GENERIC_ALL = &H10000000
newdesk = CreateDesktop("DeskName", 0, 0, 0, GENERIC_ALL, sa)
(ByVal lpszDesktop As String, ByVal lpszDevice As String, pDevmode As String, _
ByVal dwFlags As Long, ByVal dwDesiredAccess As Long, ByRef lpsa As SECURITY_ATTRIBUTES) As Long
Private Const GENERIC_ALL = &H10000000
newdesk = CreateDesktop("DeskName", 0, 0, 0, GENERIC_ALL, sa)