ShowNetworkDiskConnectionDialog – Show a dialog to connect or disconnect a drive

Private Declare Function WNetConnectionDialog Lib "mpr.dll" (ByVal hwnd As Long, _    ByVal dwType As Long) As LongPrivate Declare Function WNetDisconnectDialog Lib "mpr.dll" (ByVal hwnd As Long, _    ByVal dwType As Long) As Long ' show the dialog to connect/disconnect a network disk'' If the argument is True it shows the ConnectDialog,'  otherwise it shows the Disconnect dialog' the second argument is the hWnd of the parent dialog''The function returns False if the dialog is canceled, True otherwise.Function ShowNetworkDiskConnectionDialog(ByVal ConnectDialog As Boolean, _    Optional ByVal hwnd As Long) As Boolean    Const RESOURCETYPE_DISK = &H1    If ConnectDialog Then        ShowNetworkDiskConnectionDialog = (WNetConnectionDialog(hwnd, _            RESOURCETYPE_DISK) = 0)    Else        ShowNetworkDiskConnectionDialog = (WNetDisconnectDialog(hwnd, _            RESOURCETYPE_DISK) = 0)    End IfEnd Function