Has any one used these network browsing functions? I'm trying to show the network browsing dialog, then retrieve the name of the selected computer...

This is what I've got:

Code:
Option Explicit

Const MAXPATH = 260
Const CSIDL_NETWORK = 18
Const CSIDL_DESKTOP = 0

Const BIF_RETURNONLYFSDIRS = &H1      ' For finding a folder to start document searching
Const BIF_DONTGOBELOWDOMAIN = &H2     ' For starting the Find Computer
Const BIF_STATUSTEXT = &H4
Const BIF_RETURNFSANCESTORS = &H8
Const BIF_EDITBOX = &H10
Const BIF_VALIDATE = &H20             ' insist on valid result (or CANCEL)

Const BIF_BROWSEFORCOMPUTER = &H1000  ' Browsing for Computers.
Const BIF_BROWSEFORPRINTER = &H2000   ' Browsing for Printers
Const BIF_BROWSEINCLUDEFILES = &H4000 ' Browsing for Everything

Private Type BROWSEINFO
    hwndOwner As Long
    pidlRoot As Long
    strDisplayName As Long
    strTitle As Long
    ulFlags As Long
    lpfn As Long
    lParam As Long
    iImage As Long
End Type
    
Private Declare Function GlobalFree Lib "kernel32" (ByVal pntr As Long) As Long

Private Declare Function SHGetSpecialFolderLocation Lib "Shell32" (ByVal hwnd As Long, _
                                    ByVal lpstr As Long, ByRef pntr As Long) As Long
                                    
Private Declare Function SHGetPathFromIDList Lib "Shell32" (ByVal pntr As Long, _
                                                            ByRef str As String) As Long
                                                            
Private Declare Function SHBrowseForFolder Lib "Shell32" (ByVal pntr As Long) As Long

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
            (Destination As Long, Source As Long, ByVal Length As Long)


Private Sub Command1_Click()
    Dim udtBrowse As BROWSEINFO
    Dim lngIdl As Long
    Dim nHwndFlag As Long
    Dim nResult As Long
    
    Dim szPath As String, szDLL As String, szParameter As String
    Dim pszOperation As Long, pszFile As Long, pszPath As Long, pszParameter As Long
    Dim pudtBrowse As Long, pstrPath As Long, pstrTitle As Long
    Dim strPath As String * MAXPATH
    Dim strTitle As String * MAXPATH
    Dim nReturn As Long
    Dim nFolder As Long
    
    nFolder = CSIDL_NETWORK
         
    nResult = SHGetSpecialFolderLocation(Me.hwnd, nFolder, lngIdl)
    
    If nResult = 0 Then

        strPath = ""
        strTitle = "Arse Beaver" & vbNullChar
        
        pstrPath = StrPtr(strPath)
        pstrTitle = StrPtr(strTitle)
        
        udtBrowse.hwndOwner = Me.hwnd
        udtBrowse.pidlRoot = lngIdl
        'udtBrowse.strDisplayName = pstrPath
        udtBrowse.strTitle = pstrTitle
        udtBrowse.ulFlags = BIF_BROWSEFORCOMPUTER 'BIF_RETURNONLYFSDIRS
        pudtBrowse = VarPtr(udtBrowse)

        lngIdl = SHBrowseForFolder(pudtBrowse)
        If lngIdl <> 0 Then
'            'strPath = String(512, vbNullChar)
'            nResult = SHGetPathFromIDList(lngIdl, strPath)
'            Label1.Caption = strPath
'            GlobalFree (lngIdl)
        End If
    End If
End Sub
Can anyone make this work?? Please help!