Функции API CreateDesktop и CreateProcess - как их правильно вызвать? - VB

Формулировка задачи:

Помогите с вызовом функции. Что не так? Например CreateProcess. Меняю стандартное объявление функции как:

                    Листинг программы
                
Private Declare Function CreateDesktop Lib "user32" Alias "CreateDesktopA" (ByVal lpszDesktop As String, ByVal lpszDevice As String, pDevmode As DEVMODE, ByVal dwFlags As Long, ByVal dwDesiredAccess As Long, lpsa As SECURITY_ATTRIBUTES) As Long

На объявление:

                    Листинг программы
                
Private Declare Function CreateDesktop Lib "user32" Alias "CreateDesktopA" (ByVal lpszDesktop As String, ByVal lpszDevice As String, ByVal pDevmode As Long, ByVal dwFlags As Long, ByVal dwDesiredAccess As Long, ByVal lpsa As Long) As Long

Вызываю функцию следующим образом:

                    Листинг программы
                
Private Const DESKTOP_CREATEWINDOW = &H2&
lngRetval = CreateDesktop("NewDeskTop", vbNull, vbNull, 0, DESKTOP_CREATEWINDOW, vbNull)

Как результат – фатальное исключение.

Решение задачи: «Функции API CreateDesktop и CreateProcess - как их правильно вызвать?»

textual
                            Листинг программы 
                        
Private Declare Function CreateDesktop Lib "user32" Alias "CreateDesktopA" (ByVal lpszDesktop As String, ByVal lpszDevice As String, ByVal pDevmode As Long, ByVal dwFlags As Long, ByVal dwDesiredAccess As Long, ByVal lpsa As Long) As Long
 
Private Sub Command1_Click()
 
    Dim lnghNewDeskTop As Long
    
    Const DESKTOP_CREATEWINDOW = &H2&
    
    lnghNewDeskTop = CreateDesktop("NewDeskTop", vbNullString, 0, 0, DESKTOP_CREATEWINDOW, 0)
    
End Sub