vb用rasdial写了个VPN拨号客户端,怎么显示状态

Question

Dim a As String
  a = Shell("rasdial VPN pt pt", vbHide)上面是用shell 方法拨号,如果通过返回的A 得到拨号的状态想在一个LABEL里提示:正在打开连接,正在核对用户名和密码.....等信息已经怎么写,写过的出来指点一上,谢谢~!

Answer 1

试验结果
操作系统win7 vb6 已经建立一个可用的PPTP连接 名字VPN
把你那加入模板
在FORM里写如下代码
Private Sub Command1_Click()
Call DialUp("VPN")
End Sub结果那个叫VPN的PPTP连接,无动作