Как программно ввести логин и пароль окна, которое открывается при открытии сетевой папки?

Dim MyRead As System.IO.StreamReader
MyRead = IO.File.OpenText("\\ShareG\builds\CurB.txt") 
BValue = MyRead.ReadToEnd ' BValue - глобальная переменная.

Imports System.Runtime.InteropServices
 
Public Class Form1
 
    Private Sub Test()
        Dim nr As New NETRESOURCE
        nr.dwType = RESOURCETYPE_DISK
        nr.lpRemoteName = "\\Комп\Шара"
        If WNetAddConnection2(nr, "ДваОдинТриВосемь", "Loser", 0) <> NO_ERROR Then
            Throw New Exception("WNetAddConnection2 failed.")
        End If
        ' Какие-то действия с содержимым папки
    End Sub
 
    <StructLayout(LayoutKind.Sequential)> _
    Private Structure NETRESOURCE
        Public dwScope As UInteger
        Public dwType As UInteger
        Public dwDisplayType As UInteger
        Public dwUsage As UInteger
        <MarshalAs(UnmanagedType.LPTStr)> _
        Public lpLocalName As String
        <MarshalAs(UnmanagedType.LPTStr)> _
        Public lpRemoteName As String
        <MarshalAs(UnmanagedType.LPTStr)> _
        Public lpComment As String
        <MarshalAs(UnmanagedType.LPTStr)> _
        Public lpProvider As String
    End Structure
 
    Private Const NO_ERROR As UInteger = 0
    Private Const RESOURCETYPE_DISK As UInteger = 1
 
    <DllImport("mpr.dll", CharSet:=CharSet.Auto)> _
    Private Shared Function WNetAddConnection2(ByRef lpNetResource As NETRESOURCE, <[In](), MarshalAs(UnmanagedType.LPTStr)> ByVal lpPassword As String, <[In](), MarshalAs(UnmanagedType.LPTStr)> ByVal lpUserName As String, ByVal dwFlags As UInteger) As UInteger
    End Function
 
    <DllImport("mpr.dll", CharSet:=CharSet.Auto)> _
    Private Shared Function WNetCancelConnection2(<[In](), MarshalAs(UnmanagedType.LPTStr)> ByVal lpName As String, ByVal dwFlags As UInteger, <MarshalAs(UnmanagedType.Bool)> ByVal fForce As Boolean) As UInteger
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Test()
    End Sub
End Class

Imports System.Runtime.InteropServices
 
<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Auto)> _
Public Structure NETRESOURCE
    Dim     dwScope As Integer
    Dim     dwType As Integer
    Dim     dwDisplayType As Integer
    Dim     dwUsage As Integer
    Dim     lpLocalName As String
    Dim     lpRemoteName As String
    Dim     lpComment As String
    Dim     lpProvider As String
End Structure
 
Public Declare 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

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