Private Sub Command1_Click()

Dim res

res = Shell("rhone.exe [-d 拨号连接名称]", 1)

End Sub