Really Really need help now, quite urgent !??

I need to know how to popup a Menu, with the contents of the Start Menu, including all it's subfolders and all shortcuts.

Don't tell me to visit vbAccelerator for help with this, cause I can't get his code to work, already tried everything.

And if possible I want to know how to copy each icon to...

Please help me if you can!

Well at least something done, here's something i just made, it pops the startmenu at position 500,200 with size 200,200

Code:

---

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long

Private Sub Form_click()
    a = FindWindow("BaseBar", vbNullChar)
    MoveWindow a, 500, 200, 200, 200, 1
    ShowWindow a, 5
End Sub

---

you could read the contents of C:\WINDOWS\Start Menu and use API to create a popup menu and loop through all the items in the folder, and add them to the popup menu.