OpenUserBrowser

Как програмно открить окно Select Users, Computers and Groups in Security -> click button Add.

АРІ функция OpenUserBrowser ето делает, но окно виглядит как у WinNT, а нужно WinXP.

кусок кода:

Private Type OPENUSERBROWSER_STRUCT
cbSize As Long
fCancelled As Long
Unknown As Long
hWndParent As Long
szTitle As Long
szDomainName As Long
dwFlags As Long
dwHelpID As Long
szHelpFile As Long
End Type

Private Declare Function OpenUserBrowser Lib "netui2.dll" _
(lpOpenUserBrowser As Any) As Long

Public Sub ShowDialog(Optional Domain As String)
Dim hBrowser As Long
Dim browser As OPENUSERBROWSER_STRUCT

With browser
.cbSize = Len(browser)
.fCancelled = 0
.Unknown = 0
.hWndParent = hParent
.szTitle = StrPtr("Select Users ")
.szDomainName = StrPtr("\\" + Domain)
.dwFlags = &H8&
End With

hBrowser = OpenUserBrowser(browser)

End Sub