VB.Net Tutorial/Windows/Network connection dialog
Network connection dialog
<source lang="vbnet">Imports System.Environment Imports System.Net
Public Class Tester
Declare Function WNetDisconnectDialog Lib "mpr.dll" (ByVal hwnd As Integer, ByVal dwType As Integer) As Integer Declare Function WNetConnectionDialog Lib "mpr.dll" (ByVal hwnd As Integer, ByVal dwType As Integer) As Integer Public Shared Sub Main Dim RESOURCETYPE_DISK As Short = 1 Dim RESOURCETYPE_PRINTER As Short = 2 WNetConnectionDialog(1, RESOURCETYPE_DISK) WNetDisconnectDialog(1, RESOURCETYPE_DISK) End Sub
End Class</source>