NewRasConnect

'[Public] | [Private]

Declare Function RasCreatePhonebookEntry Lib "RasApi32.dll" _
Alias "RasCreatePhonebookEntryA" _
(ByVal hwnd As Long, ByVal lpszPhonebook As String) As Long
'con:

'hwnd: - l'handle della finestra attiva

'lpszPhonebook: - parametro che indica il percorso del file .PBK (Solo Windows NT)


'Quindi per poter creare una nuova connessione bastera' scrivere

aaa = RasCreatePhonebookEntry(Me.hwnd, vbNullString)