Windows VB.Net Tutorial

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