Gelobt sei Google:
The RasSetEntryProperties function will modify or create a new dial-up networking entry.
Dim clsVBRasEntry as VBRasEntry
Dim rtn as long
rtn = VBRasSetEntryProperties("MyConnection", clsVBRasEntry)
If rtn <> 0 then MsgBox VBRASErrorHandler(rtn)
http://home.iprimus.com.au/billmcc/P...entryprops.htm