如何用API调用XP效果

我有一部分调用了XP效果，但是还有一部分不知道怎么调用请高手，指教谢谢！
下面是调用成功的代码：Public Declare Sub InitCommonControls Lib "comctl32.dll" ()
现在我想实现工具栏，日期控件也有XP效果。