116.txt

VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）

在程序中打开 Internet 拨号连接窗口   
       
Private Sub StartConnection()
Dim X
X = Shell("rundll32.exe rnaui.dll,RnaDial " & "_连接的名称_", 1)
DoEvents
SendKeys "{enter}", True
DoEvents
End Sub