Public Const RASEDFLAG_NewEntry = &H2
Public Const RASEDFLAG_IncomingConnection = &H400
 
Public Type RASENTRYDIALOG 
  dwSize    As Long        
  hwndOwner As Long    
  dwFlags   As Long  
  xDlg      As Long  
  yDlg      As Long      
  szEntry   As String * 267 
  dwError   As Long        
  reserved  As Long  
  Reserved2 As Long   
End Type
 
Private Declare Function RasEntryDlg Lib "RASDLG.DLL" Alias "RasEntryDlgA" _
    (ByVal lpszPhonebook As String, ByVal lpszEntry As String, ByRef lpInfo As _
    RASENTRYDIALOG) As Long
 
'
'
'
 
Dim re As RASENTRYDIALOG
  With re
    .dwSize = Len(re)
    .hwndOwner = lFormHandle
    .dwFlags = RASEDFLAG_NewEntry
    .szEntry = vbNullString
  End With
 
lResult = RasEntryDlg(vbNullString, vbNullString, re)
Debug.Print lResult

bis später
Tomy