VB 如何获得任务栏右下角“本地连接”图标的句柄？

我用以下代码，找不到任务栏右下角“本地连接”图标的句柄：
pk = FindWindow(vbNullString, "本地连接")
If pk <> 0 Then MsgBox ("已找到")
用spy++也不知哪个才是“本地连接”的句柄，请大侠们帮忙看看，谢谢。

---

我是这么用的，供参考。
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

  Dim lngProcID As Long
    Dim lngHwnd As Long
    Dim lngReturn As Long

    lngProcID = Shell("rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl", vbNormalFocus)

    AppActivate lngProcID

    If lngProcID <> 0 Then
lngHwnd = OpenProcess(SYNCHRONIZE, 0, lngProcID)
end if

---

我的电脑运行：lngProcID = Shell("rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl", vbNormalFocus)，没有任何反应。

---

非常感谢sysdzw，可用。

---

我的代码少点东西，试试2楼的