[RESOLVED]Shell System Properties

[TokersBall_CDXX]

Currently in the process of creating a shell tool.
and I'm trying to mimic the right click on 'My Computer'

I cannot find any reference to shelling 'System Properties'
any ideas?


I've been able to manage the first 3 main context's of the menu for those interested in them

Select Case PopMenu("Explore;Search;Manage;Properties", 0, 0)
        Case 65535:
        Dim sGuid2 As String
            sGuid2 = "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
            ShellExecute Me.hwnd, vbNullString, sGuid2, vbNullString, vbNullString, SW_MAX
        
        Case 65534:
        Dim sGuid3 As String
            sGuid3 = "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
            ShellExecute Me.hwnd, "find", sGuid3, vbNullString, vbNullString, SW_MAX
        Case 65533:
        Dim sGuid4 As String
        Dim wPath As String, strSave As String
            strSave = String(200, Chr$(0))
            wPath = Left$(strSave, GetWindowsDirectory(strSave, Len(strSave)))
            wPath = wPath & "\system32\compmgmt.msc "
            ShellExecute Me.hwnd, vbNullString, wPath, vbNullString, vbNullString, SW_MAX
End Select