Binaryworld - ShowNetworkDiskConnectionDialog - Show a dialog to connect or disconne ... [ VB -> Networking ]

Private Declare Function WNetConnectionDialog Lib "mpr.dll" (ByVal hwnd As Long, _
  ByVal dwType As Long) As Long
Private 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 If
End Function