Windows VB.Net Tutorial

Imports System.Runtime.InteropServices
public class NetworkDriveConnectionDialog
      Const RESOURCETYPE_DISK As Short = 1
    
      Private Declare Function WNetConnectionDialog Lib "mpr.dll" (ByVal hwnd As Integer, ByVal dwType As Integer) As Integer
    Public Shared Sub Main
        WNetConnectionDialog(0, RESOURCETYPE_DISK)
    
    End Sub
End Class