OpenRAS

Sub Connect(NomeConnessione as string)
Dim rtn as long
rtn = Shell("rundll32.exe rnaui.dll,RnaDial " & NomeConnessione, 0) ' Mostra finestra di connessione
SendKeys "{ENTER}" 'Preme invio ed avvia la connessione
End Sub