فراخوانی Handle از آیتم ها منوی سیستمی

[ROSTAM2]

سلام.

من با توابع API و این کد همین کد آی.دی آیتم منو رو گرفتم ولی تابع GetSubMenu درست عمل نمی کنه!
مشکل کد من کجاست؟!

توابع API:

Declare Function GetMenuItemCount Lib "user32" (hMenu As IntPtr) As Integer

   Declare Function GetMenuItemID Lib "user32" (hMenu As IntPtr, nPos As Integer) As Integer

Declare Function GetSubMenu Lib "user32" Alias "GetSubMenu" (

   ByVal hMenu As IntPtr,

   ByVal nPos As Integer) As Integer

کدهای من:

Dim Count As Integer = GetMenuItemCount(hMenu)

       Dim MenuID As Integer = 0

       Dim MenuHandle As Integer = 0

       For i = 0 To Count - 1

           MenuID = GetMenuItemID(hMenu, i)

           MenuHandle = GetSubMenu(hMenu, i)

           Dim Expr As String = String.Format("{0}) {1}/{2}", hMenu,  MenuHandle, MenuID)

           Debug.Print(Expr)

       Next