vb 建立VPN中的一个有关问题！

vb 建立VPN中的一个问题！！
现在已经可以用VB　建立一VPN连接，
但是现在需要建立的VPN连接，默认是在高级 TCP/IP 里　　在远程网络上使用默认网关　这个勾不选，
在网上找的代码是　

Private Const RASEO_RemoteDefaultGateway As Long = &H10 '是否选用远程网上默认网关

可是无论如何改，建立的VPN，在远程网络上使用默认网关　哪个勾还是选上的！：（


[解决办法]
Function Create_PPPoE_Connection(ByVal sDeviceType As String, ByVal sEntryName As String, ByVal sUsername As String, ByVal sPassword As String, ByVal IP As String) As Boolean
Create_PPPoE_Connection = False
.....

把
.dwfOptions = 1024262928
修改为：
.dwfOptions = 1024262928 - RASEO_RemoteDefaultGateway

详见贴子 http://topic.csdn.net/u/20080722/11/c1d6bf9f-9e8a-45cc-bad7-8605cad39674.html