Eu coloquei no General_Declarations:

Num botão eu coloquei:
    X% = WNetConnectionDialog(Me.hwnd, 1)


e quando eu clico no botão aparece a caixa "Mapear Unidade de Rede" do Windows... até ai está tudo certo!

 

O que eu queria saber é como eu faço para a caixa já aparecer preenchida  com os valores que eu quero:

 

 

http://www.vbweb.com.br/dicas_visual.asp?Codigo=1097&Classificacao=

me dá um ultimo help...

 

essa parte:

 

Private Declare Function WNetAddConnection Lib "mpr.dll" Alias "WNetAddConnectionA" (ByVal lpszNetPath As String, ByVal lpszPassword As String, ByVal lpszLocalName As String) As Long
Private Declare Function WNetCancelConnection Lib "mpr.dll" Alias "WNetCancelConnectionA" (ByVal lpszName As String, ByVal bForce As Long) As Long

Const WN_SUCCESS = 0
Const WN_NET_ERROR = 2
Const WN_BAD_PASSWORD = 6

Function AddConnection(MyShareName As String, MyPWD As String, UseLetter As String) As Integer

    On Error GoTo AddConnection_Err
    AddConnection = WNetAddConnection(MyShareName, MyPWD, UseLetter)
    
    If AddConnection = WN_SUCCESS Then
      MsgBox "Unidade " & UseLetter & "  mapeada com êxito", vbInformation
    ElseIf AddConnection = WN_NET_ERROR Then
      MsgBox "Não foi possível mapear a unidade " & UseLetter, vbInformation
    ElseIf AddConnection = WN_BAD_PASSWORD Then
      MsgBox "Não foi possível mapear a unidade " & UseLetter & ". Senha incorreta!", vbInformation
    End If
    
AddConnection_End:
    Exit Function
    
AddConnection_Err:
    AddConnection = Err
    MsgBox Error$
    Resume AddConnection_End
    
End Function

Function CancelConnection(DriveLetter As String, Force As Integer) As Integer

    On Error GoTo CancelConnection_Err
    
    CancelConnection = WNetCancelConnection(DriveLetter, Force)
    
    If CancelConnection = WN_SUCCESS Then
      MsgBox "Unidade " & DriveLetter & "  desmapeada com êxito", vbInformation
    Else
      MsgBox "Não foi possível desmapear a unidade " & DriveLetter, vbInformation
    End If
    
CancelConnection_End:
    Exit Function
    
CancelConnection_Err:
    CancelConnection = Err
    MsgBox Error$
    Resume CancelConnection_End
    
End Function

e devo colocar num modulo?

 

e essa outra parte eu coloco num commandbutton:

Sim,  as funtion num modulo e a linha:

AddConnection "\OCoputadorQueSeraMapeadoUnidade", "", "Letra:"