请对RAS熟悉的高手提点！

Question

制作一个拨号/拨号服务的控件，其中调用Rasdial。声明：
Public Declare Function RasDial Lib "RasApi32.DLL" Alias "RasDialA" (lpRasDialExtensions As Any, ByVal lpszPhonebook As String, lprasdialparams As Any, ByVal dwNotifierType As Long, lpvNotifier As Long, lphRasConn As Long) As LonglngRetcode = RasDial(ByVal APINULL, vbNullString, lprasdialparams, 0, AddressOf RasDialFunc, hRasConn)回调函数RasDialFunc声明:Public Sub RasDialFunc(ByVal unMsg As Long, ByVal ConnState As Long, ByVal dwError As Long)但运行vb环境崩溃，单步调试发现运行至RasDial结束即出错。。
希望高手不吝赐教，如果我所写代码不足以发现问题所在，我就把完整代码压缩上传。非常感谢！

Answer 1

这篇中是用rundll来调用windows拨号网络，用RAS只是用来监测连接是否存在。继续等待！