سلام.

من با توابع 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