Dim V As String = "NET USE \\SERVER_IP\CONDIVISIONE$ [PASSWORD] /PERSISTENT:YES /USER:[USERNAME]"

        ' Esegue la connessione all'unc. Il parametro TRUE serve per attendere che la connessione avvenga
        Shell(V, AppWinStyle.Hide, True)