Private Declare Function GetMenu Lib "user32.dll" (ByVal hwnd As Long) As Long
Private Declare Function GetSubMenu Lib "user32.dll" (ByVal hMenu As Long, _
  ByVal nPos As Long) As Long
Private Declare Function GetMenuString Lib "user32.dll" Alias "GetMenuStringA" ( _
ByVal hMenu As Long, ByVal wIDItem As Long, ByVal lpString As String, ByVal _
nMaxCount As Long, ByVal wFlag As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32.dll" (ByVal hMenu As _
Long) As Long
Private Declare Function GetMenuItemID Lib "user32.dll" (ByVal hMenu As Long, _
ByVal nPos As Long) As Long
 
Private Function ReadSubMenu(ByVal m As Long) As Long
  Dim i As Long, c As Long, id As Long
 
  c = GetMenuItemCount(m)
 
  For i = 0 To c
    id = GetSubMenu(m, i)
    Select Case id
    Case 0
      id = GetMenuItemID(m, i)
      If id > 0 Then List1.AddItem GetMenuText(m, id)
    Case Is > 0
      List1.AddItem GetMenuText(m, id)
      ReadSubMenu id
    End Select
  Next
 
End Function
 
Private Function GetMenuText(ByVal m As Long, ByVal id As Long, Optional ByVal _
  flags As Long = 0) As String
  GetMenuText = Space(64)
  GetMenuString m, id, GetMenuText, Len(GetMenuText), flags
  GetMenuText = Left(GetMenuText, InStr(GetMenuText & Chr(0), Chr(0)) - 1)
End Function
 
Private Sub Form_Load()
  ReadSubMenu GetMenu(Me.hwnd)
End Sub