感谢版主的解答。。现在又碰到一个问题了~~
我在网上看到一个MSDN：
    Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Int32, _
ByVal dwReserved As Int32) As Boolean  '获得状态。。

    Private Declare Function InternetDial Lib "Wininet.dll" (ByVal hwndParent As IntPtr, _
    ByVal lpszConnectoid As String, ByVal dwFlags As Int32, ByRef lpdwConnection As Int32, _
    ByVal dwReserved As Int32) As Int32  '连接用

    Private Declare Function InternetHangUp Lib "Wininet.dll" _
    (ByVal lpdwConnection As Int32, ByVal dwReserved As Int32) As Int32 '断开连接

现在的主要问题出在  连接和断开连接。。
如果我机器上本身已经建立一个宽带连接的话，总是不能使用这个断开连接（lpdwConnection这个值无法获得)。
需要通过internetdial来建立宽带连接，并获得lpdwConnection返回值，才能使用InternetHangUp来断开连接。
不知道还有其它断开连接的方法吗？！！！非常感谢！！！（代码，我放在四楼吧）

[[it] 本帖最后由 alpher 于 2008-12-15 18:41 编辑 [/it]]

随便找下都有的。　
http://www.

取得链接名后
用API
InternetDial (0, “adsl”, 2, 0, 0)

非常感谢版主，初步的拨号已经做出来了。
1楼的链接我也看过。点拨了一下，就有思路了。谢谢！！！

问题在顶楼…………
'－－－－连接代码（没用的都简化了）－－－－－－
  Dim DResult As Int32
   DResult = InternetDial(Me.Handle, "宽带连接", DialUpOptions.INTERNET_DIAL_FORCE_PROMPT, mlConnection, 0)
'－－－－连接代码结束----------
'－－－－断开连接－－－－－－－－
        Dim Result As Int32
        If Not (mlConnection = 0) Then
            Result = InternetHangUp(mlConnection, 0&)
            If Result = 0 Then
                MessageBox.Show("Hang up successful", "Hang Up Connection")
            Else
                MessageBox.Show("Hang up NOT successful", "Hang Up Connection")
            End If
        Else
            MessageBox.Show("You must dial a connection first!", "Hang Up Connection")
        End If

'－－－－－断开连接代码结束－－－－－