*** Code ***

add :

#include "xbcjcal.ch" // xtpSkin... Constante if you like to test it with :ApplyOptions

#define CRLF Chr(13)+Chr(10)

// Einbinden der Automation Support Library
#PRAGMA LIBRARY( "ASCOM10.LIB" )

LOCAL oSkin
LOCAL cSkin := "Office2007.cjstyles"

...

oSkin       := XbpActiveXControl():new( , , {0,0}, {0,0} )
* oSkin:CLSID   := "Codejock.SkinFramework.13.0.0"
oSkin:CLSID   := "{16378D39-12CF-4C7D-8769-DFAAF02FD1F5}"
oSkin:License := "Skin Framework Control Copyright (c) 2003-2009 Codejock Software"+CRLF+;
                   "PRODUCT-ID: Codejock.SkinFramework.ActiveX.v13.0"+CRLF+;
                   "VALIDATE-CODE: GGE-OLD-QQR-EJS"
oSkin:create()

oSkin:callMethod("LoadSkin",cSkin,"")
* oSkin:ApplyOptions := xtpSkinApplyColors+xtpSkinApplyFrame+xtpSkinApplyMetrics+xtpSkinApplyMenus
* oSkin:ApplyOptions := xtpSkinApplyFrame+xtpSkinApplyMenus
// also New Threads
oSkin:AutoApplyNewThreads := .T.
// and MDI Client
oSkin:AutoApplyNewWindows := .T.
// apply to Dialog
oSkin:callMethod("ApplyWindow", oDlg:getHWND() )
*** eof ***

now try to open Menu ... they are empty

so next, with/without Codejock Skinframework i try this