Code:

Imports System.Runtime.InteropServices

Module Module1
    Const RESOURCETYPE_DISK = &H1

    Sub Main()
        Dim theNetResource As WNet.NETRESOURCE
        Dim UserName As String
        Dim UserPassword As String

        theNetResource = New WNet.NETRESOURCE()

        theNetResource.lpRemoteName = "\\server\sharename"
        theNetResource.lpLocalName = "Z:"
        UserName = "server\pippo"
        UserPassword = "pluto"
        theNetResource.dwType = RESOURCETYPE_DISK

        Dim Result As Integer
        Result = WNet.WNetAddConnection2(theNetResource, UserPassword,
UserName, 0)
        If Result = 0 Then
            Console.WriteLine("Connection Established.")
        Else
            Console.WriteLine("Connection Failed. {0}", Result)
        End If
        Console.ReadLine()

    End Sub

End Module

Class WNet
    <StructLayout(LayoutKind.Sequential)> _
    Public Class NETRESOURCE
        Public dwScope As Integer
        Public dwType As Integer
        Public dwDisplayType As Integer
        Public dwUsage As Integer
        Public lpLocalName As String
        Public lpRemoteName As String
        Public lpComment As String
        Public lpProvider As String
    End Class

    Public Declare Ansi Function WNetAddConnection2 Lib "mpr.dll" Alias
"WNetAddConnection2A" (ByVal lpNetResource As NETRESOURCE, ByVal lpPassword
As String, ByVal lpUserName As String, ByVal dwFlags As Integer) As Integer
End Class