请问用程序在拨号网络里怎样添加一个连接？

Question

Private Declare Function RnaWizard Lib "rnaui.dll" (ByVal hWnd As Long, ByVal hInst As Long, ByVal lpszEntry As String, ByVal lFlag As Long) As Long
Private lhWnd As Long
Private lhInst As Long
Private Sub Command2_Click()
    On Error GoTo ErrorHandle
    Dim s As String
    If Option1 Then
        s = "/0"
    Else
        s = "/1"
    End If    Dim l As Long
    l = RnaWizard(lhWnd, lhInst, s, 1)
    If l Then
        MsgBox "错误: " & l, vbCritical
    End If
    Exit Sub
    
ErrorHandle:
    MsgBox Err.Description, vbCritical
End SubPrivate Sub Form_Load()
    On Error Resume Next
    lhWnd = hWnd
    lhInst = App.hInstance
End Sub

Answer 1

un1你好：
谢谢你帮助，不过你的方法好像跟我的一样
只能打开建立新连接先导！
我的意思是不用打开向导直接在拨号网络你建一个新的连接！
希望你能帮我再想想，万分感谢！