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>