Private Sub StartConnection()
Dim X X = Shell("rundll32.exe rnaui.dll,RnaDial " & Nome_Connessione, 1) DoEvents SendKeys "{enter}", True DoEvents End Sub 'dove Nome_Connessione e' il nome che avete dato alla vostra 'connessione all'Accesso remoto. |