Dial Up Connection

How can I bring up the Dial Up connection dialog box through VB?

If you want to bring it up and connect as well:

Code:

---

Private Sub Command1_Click()
Dim X
'Replace ConnectionName with something like Netzero
'or a Dial-Up Connection in your Dial-Up Networking Folder
X = Shell("rundll32.exe rnaui.dll,RnaDial " & "ConnectionName", 1)
DoEvents
'You can type in your password before the { below.
SendKeys "{enter}", True
DoEvents
End Sub

---

If you just want to bring up that dialog box:

Code:

---

Private Sub Command1_Click()
X = Shell("rundll32.exe rnaui.dll,RnaDial " & "ConnectionName", 1)
End Sub

---