http://www.cnosblog.com/ PJBlog2 2008-10-20T14:06:36+08:00 chaogesheji http://www.cnosblog.com/ 289778005@qq.com 2008-10-20T14:06:36+08:00 2008-10-20T14:06:36+08:00

http://www.cnosblog.com/default.asp?id=231 PPT小吴 http://www.cnosblog.com/ 289778005@qq.com 2008-09-08T16:30:17+08:00 2008-09-08T16:30:17+08:00

包括《时间管理》、《高效能人士的七个习惯》、《培训故事５０篇》、
　　《管理沟通》、《执行力》、《班组长技能提升》、《早会管理》、《激励

与士气提升》、《5S管理》、《呼叫中心话务员电话沟通》、《电话礼仪》、《

服务礼仪》、《接待专业化训练》、《金牌营业员》、《黄金心态》、《投诉处

理技巧》、《大客户服务》、《谈判策略与技巧》.



制作精美，均为职业培训师授课PPT课件。


适合于中小企业初创期，个人企业初创，人力资源部培训系列，初级讲师，想提

升自我的人士。


祝所有看到这个信息的人：创业顺利，财源滚滚。

您的朋友：小吴

联系邮箱：gzppt@126.com     QQ:915523052]]>

http://www.cnosblog.com/default.asp?id=230 lihongguang http://www.cnosblog.com/ 289778005@qq.com 2008-08-29T23:25:55+08:00 2008-08-29T23:25:55+08:00

Dispatch _Global; // Contains global members used for the server.
GUID={EB471061-C6FE-4D9B-B700-E68101CEF10B};
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);
  function AttachMessage(out frm:^^_ISubclass; hwnd:I4; iMsg:I4);
  function DetachMessage(out frm:^^_ISubclass; hwnd:I4; iMsg:I4);
  property-get CurrentMessage: I4;
  function CallOldWindowProc(hwnd:I4; iMsg:I4; wParam:I4; lParam:I4): I4;

Class Global; // Contains global members used for the server.
GUID={FD972EFD-8FEB-47AD-9FA9-2BCA21294196};
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);
  function AttachMessage(out frm:^^_ISubclass; hwnd:I4; iMsg:I4);
  function DetachMessage(out frm:^^_ISubclass; hwnd:I4; iMsg:I4);
  property-get CurrentMessage: I4;
  function CallOldWindowProc(hwnd:I4; iMsg:I4; wParam:I4; lParam:I4): I4;

Dispatch _FileWindow; // Provides window related functions. Many complex API's that are normally not used can be easily used through this class.
GUID={76CAC6B9-EA47-47FA-A97B-BE72E174D8E7};
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);
  function GetFileVersion(strFile:BSTR): BSTR;
  function SetGridColor(out Grid:^IDispatch; Row_Col:bool; Color1:I4; Color2:I4);
  function FirstDayOfMonth(out myDate:^date): date;
  function LastDayOfMonth(out myDate:^date): date;
  function DaysInMonth(out myDate:^date): I2;
  function FindExecutable(out sFile:^BSTR): BSTR;
  function AddBackSlash(out sPath:^BSTR): BSTR;
  function RemoveBackSlash(out s:^BSTR): BSTR;
  function DelFilterBefore(out TarStrings:^BSTR; out Filter:^BSTR): BSTR;
  function GetExtension(out Value:^BSTR): BSTR;
  function GetFileName(out Filename:^BSTR): BSTR;
  function GetPath(strPath:BSTR): BSTR;
  function IsPrime(N:I4): bool;
  function GetDaysOfMonthByDate(Fdate:date): I2;
  function AllReStr(out Str:^BSTR; out Str1:^BSTR; out Str2:^BSTR): BSTR;
  function AllDelStr(out Str:^BSTR; out DelStr:^BSTR): BSTR;
  function AllTrim(out Dwith:^BSTR): BSTR;
  function Number2Chinese(Number:R8; Separator:BSTR): BSTR;
  function DecToBin(out Dec:^I4): BSTR;
  function GetDoTime(out DateTime1:^variant; out DateTime2:^variant): BSTR;
  function ShellEx(sFile:BSTR; eShowCmd:EShellShowConstants; sParameters:BSTR; sDefaultDir:BSTR; out sOperation:^BSTR; out Owner:^I4): bool;
  function ReadIni(StrFileName:BSTR; StrSection:BSTR; strListName:BSTR; StrDefault:BSTR): BSTR;
  function WriteIni(StrFileName:BSTR; StrSection:BSTR; strListName:BSTR; StrValue:BSTR);
  function FileOrFolderExists(StrName:BSTR; intFileAttribute:VbFileAttribute): bool;
  function GetOpenSaveFile(out Filename:^BSTR; out InitDir:^BSTR; out Filter:^BSTR; out FileterIndex:^I4; out DlgTitle:^BSTR; out Owner:^I4; out OpenMode:^bool; out ShowPreview:^bool; out ViewMode:^cViewMode; out MultiSelect:^bool): bool;
  function ShowFontDlg(out hwnd:^I4; out Obj:^IDispatch; out CurFont:^^Font; out Color:^I4): variant;
  function ShowColor(out Color:^I4; out AnyColor:^bool; out FullOpen:^bool; out DisableFullOpen:^bool; out Owner:^I4): bool;
  function Code128(out zObj:^IDispatch; out zBarH:^I2; out BarText:^BSTR; HasCaption:bool): variant;
  function Code39(out zObj:^IDispatch; out zBarH:^I2; out BarText:^BSTR; out zWithCheckSum:^bool; HasCaption:bool): variant;
  function EAN13(out zObj:^IDispatch; out zBarH:^I2; out BarText:^BSTR; HasCaption:bool): variant;
  function EAN8(out zObj:^IDispatch; out zBarH:^I2; out BarText:^BSTR; HasCaption:bool): variant;
  function IsEven(I:I4): bool;
  function IsOdd(I:I4): bool;
  function IsLeapYear(out sYear:^I2): bool;
  function DateName(myDate:date): BSTR;
  function DaXieJe(out Money:^BSTR): BSTR;
  function OpenCD;
  function CloseCD;
  function Encrypt(strTxt:BSTR): BSTR;
  function UnEncrypt(strTxt:BSTR): BSTR;
  property-get GuidGenerate: BSTR;
  property-get CurrentDirectory: BSTR;
  function GetFolderLocation(FolderID:CSIDL): BSTR;
  function StrLen(out Str:^BSTR; out Length:^I2): BSTR;
  function InsStr(out SoureStr:^BSTR; out WillInsStr:^BSTR; out StrLong:^I4): BSTR;
  function BrowsCatalog(out hDlg:^I4; Title:BSTR; UFlag:UseFlag): BSTR;

Class FileWindow; // Provides window related functions. Many complex API's that are normally not used can be easily used through this class.
GUID={09ED8A1A-69E4-4653-AE74-6B6CB14FADED};
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);
  function GetFileVersion(strFile:BSTR): BSTR;
  function SetGridColor(out Grid:^IDispatch; Row_Col:bool; Color1:I4; Color2:I4);
  function FirstDayOfMonth(out myDate:^date): date;
  function LastDayOfMonth(out myDate:^date): date;
  function DaysInMonth(out myDate:^date): I2;
  function FindExecutable(out sFile:^BSTR): BSTR;
  function AddBackSlash(out sPath:^BSTR): BSTR;
  function RemoveBackSlash(out s:^BSTR): BSTR;
  function DelFilterBefore(out TarStrings:^BSTR; out Filter:^BSTR): BSTR;
  function GetExtension(out Value:^BSTR): BSTR;
  function GetFileName(out Filename:^BSTR): BSTR;
  function GetPath(strPath:BSTR): BSTR;
  function IsPrime(N:I4): bool;
  function GetDaysOfMonthByDate(Fdate:date): I2;
  function AllReStr(out Str:^BSTR; out Str1:^BSTR; out Str2:^BSTR): BSTR;
  function AllDelStr(out Str:^BSTR; out DelStr:^BSTR): BSTR;
  function AllTrim(out Dwith:^BSTR): BSTR;
  function Number2Chinese(Number:R8; Separator:BSTR): BSTR;
  function DecToBin(out Dec:^I4): BSTR;
  function GetDoTime(out DateTime1:^variant; out DateTime2:^variant): BSTR;
  function ShellEx(sFile:BSTR; eShowCmd:EShellShowConstants; sParameters:BSTR; sDefaultDir:BSTR; out sOperation:^BSTR; out Owner:^I4): bool;
  function ReadIni(StrFileName:BSTR; StrSection:BSTR; strListName:BSTR; StrDefault:BSTR): BSTR;
  function WriteIni(StrFileName:BSTR; StrSection:BSTR; strListName:BSTR; StrValue:BSTR);
  function FileOrFolderExists(StrName:BSTR; intFileAttribute:VbFileAttribute): bool;
  function GetOpenSaveFile(out Filename:^BSTR; out InitDir:^BSTR; out Filter:^BSTR; out FileterIndex:^I4; out DlgTitle:^BSTR; out Owner:^I4; out OpenMode:^bool; out ShowPreview:^bool; out ViewMode:^cViewMode; out MultiSelect:^bool): bool;
  function ShowFontDlg(out hwnd:^I4; out Obj:^IDispatch; out CurFont:^^Font; out Color:^I4): variant;
  function ShowColor(out Color:^I4; out AnyColor:^bool; out FullOpen:^bool; out DisableFullOpen:^bool; out Owner:^I4): bool;
  function Code128(out zObj:^IDispatch; out zBarH:^I2; out BarText:^BSTR; HasCaption:bool): variant;
  function Code39(out zObj:^IDispatch; out zBarH:^I2; out BarText:^BSTR; out zWithCheckSum:^bool; HasCaption:bool): variant;
  function EAN13(out zObj:^IDispatch; out zBarH:^I2; out BarText:^BSTR; HasCaption:bool): variant;
  function EAN8(out zObj:^IDispatch; out zBarH:^I2; out BarText:^BSTR; HasCaption:bool): variant;
  function IsEven(I:I4): bool;
  function IsOdd(I:I4): bool;
  function IsLeapYear(out sYear:^I2): bool;
  function DateName(myDate:date): BSTR;
  function DaXieJe(out Money:^BSTR): BSTR;
  function OpenCD;
  function CloseCD;
  function Encrypt(strTxt:BSTR): BSTR;
  function UnEncrypt(strTxt:BSTR): BSTR;
  property-get GuidGenerate: BSTR;
  property-get CurrentDirectory: BSTR;
  function GetFolderLocation(FolderID:CSIDL): BSTR;
  function StrLen(out Str:^BSTR; out Length:^I2): BSTR;
  function InsStr(out SoureStr:^BSTR; out WillInsStr:^BSTR; out StrLong:^I4): BSTR;
  function BrowsCatalog(out hDlg:^I4; Title:BSTR; UFlag:UseFlag): BSTR;

Dispatch _GridPrint;
GUID={2F18DFB4-FAE6-4E2B-BB35-DB150BEDDE77};
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);
  property-get mvarTemplateFile: BSTR;
  property-put mvarTemplateFile(BSTR);
  property-put sRecordSet(^UserDefined);
  property-put TemplateFile(BSTR);
  property-get TemplateFile: BSTR;
  property-put PrintTitle(BSTR);
  property-get PrintTitle: BSTR;
  property-put BottomMargin(R4);
  property-get BottomMargin: R4;
  property-put TopMargin(R4);
  property-get TopMargin: R4;
  property-put RightMargin(R4);
  property-get RightMargin: R4;
  property-put LeftMargin(R4);
  property-get LeftMargin: R4;
  property-put LineColor(I4);
  property-get LineColor: I4;
  property-put Linewidth(I2);
  property-get Linewidth: I2;
  property-put ShowDate(bool);
  property-get Shadow: bool;
  property-put Shadow(bool);
  property-get ShowDate: bool;
  property-put ShowPage(bool);
  property-get ShowPage: bool;
  property-put ShowBorder(bool);
  property-get ShowBorder: bool;
  property-put ShowverLine(bool);
  property-get ShowverLine: bool;
  property-put ShowHorLine(bool);
  property-get ShowHorLine: bool;
  function BindGrid(out Grid:^IDispatch): bool;
  function Preview;
  function PrintIt;
  function Clear;
  function SetHead(out Str:^BSTR; out Alignment:^Align; out HeadColor:^I4; out HeadFont:^^Font);
  function SetFoot(out Str:^BSTR; out Alignment:^Align; out FootColor:^I4; out FootFont:^^Font);
  function SetTotal(out Str:^BSTR; out TotalColor:^I4; out TotalFont:^^Font);
  function AddTitle(out Str:^BSTR; out Alignment:^Align; out TitleColor:^I4; out TitleFont:^^Font);
  function AddTail(out Str:^BSTR; out Alignment:^Align; out TailColor:^I4; out TailFont:^^Font);
  function AddSumCol(out Col:^I2);
  function AddCalCol(out Col:^I2; out CalFun:^CalFunction; out FormatString:^BSTR; out LeftString:^BSTR; out RightString:^BSTR);
  function SetColHeader(out Font:^^Font; out Color:^I4; out Shadow:^bool);
  function SetContent(out Font:^^Font; out Color:^I4);
  function SetColProp(out Col:^I2; out Alignment:^Align; out FormatString:^BSTR; out ShowCol:^bool);

Class GridPrint;
GUID={C1DF5EAE-AF91-4A13-958C-34B414B2FFE0};
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);
  property-get mvarTemplateFile: BSTR;
  property-put mvarTemplateFile(BSTR);
  property-put sRecordSet(^UserDefined);
  property-put TemplateFile(BSTR);
  property-get TemplateFile: BSTR;
  property-put PrintTitle(BSTR);
  property-get PrintTitle: BSTR;
  property-put BottomMargin(R4);
  property-get BottomMargin: R4;
  property-put TopMargin(R4);
  property-get TopMargin: R4;
  property-put RightMargin(R4);
  property-get RightMargin: R4;
  property-put LeftMargin(R4);
  property-get LeftMargin: R4;
  property-put LineColor(I4);
  property-get LineColor: I4;
  property-put Linewidth(I2);
  property-get Linewidth: I2;
  property-put ShowDate(bool);
  property-get Shadow: bool;
  property-put Shadow(bool);
  property-get ShowDate: bool;
  property-put ShowPage(bool);
  property-get ShowPage: bool;
  property-put ShowBorder(bool);
  property-get ShowBorder: bool;
  property-put ShowverLine(bool);
  property-get ShowverLine: bool;
  property-put ShowHorLine(bool);
  property-get ShowHorLine: bool;
  function BindGrid(out Grid:^IDispatch): bool;
  function Preview;
  function PrintIt;
  function Clear;
  function SetHead(out Str:^BSTR; out Alignment:^Align; out HeadColor:^I4; out HeadFont:^^Font);
  function SetFoot(out Str:^BSTR; out Alignment:^Align; out FootColor:^I4; out FootFont:^^Font);
  function SetTotal(out Str:^BSTR; out TotalColor:^I4; out TotalFont:^^Font);
  function AddTitle(out Str:^BSTR; out Alignment:^Align; out TitleColor:^I4; out TitleFont:^^Font);
  function AddTail(out Str:^BSTR; out Alignment:^Align; out TailColor:^I4; out TailFont:^^Font);
  function AddSumCol(out Col:^I2);
  function AddCalCol(out Col:^I2; out CalFun:^CalFunction; out FormatString:^BSTR; out LeftString:^BSTR; out RightString:^BSTR);
  function SetColHeader(out Font:^^Font; out Color:^I4; out Shadow:^bool);
  function SetContent(out Font:^^Font; out Color:^I4);
  function SetColProp(out Col:^I2; out Alignment:^Align; out FormatString:^BSTR; out ShowCol:^bool);

Dispatch _PopupMenu;
GUID={B6495F22-895D-4DE3-905C-A1FFAF9777CC};
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);
  function ToolbarMenuChevronPress;
  property-get AcceleratorsActive: bool;
  property-get BackgroundPicture: ^Picture;
  property-put BackgroundPicture(^^Picture);
  property-putref BackgroundPicture(^^Picture);
  property-get ImageProcessHighlights: bool;
  property-put ImageProcessHighlights(bool);
  function ClearBackgroundPicture;
  property-put Font(^^IFont);
  property-putref Font(^^IFont);
  property-get Font: ^IFont;
  property-put ActiveMenuForeColor(OLE_COLOR);
  property-get ActiveMenuForeColor: OLE_COLOR;
  property-put ActiveMenuBackStartColor(OLE_COLOR);
  property-get ActiveMenuBackStartColor: OLE_COLOR;
  property-put ActiveMenuBackEndColor(OLE_COLOR);
  property-get ActiveMenuBackEndColor: OLE_COLOR;
  property-put MenuFontForeColor(OLE_COLOR);
  property-get MenuFontForeColor: OLE_COLOR;
  property-put MenuBackColor(OLE_COLOR);
  property-get MenuBackColor: OLE_COLOR;
  property-put TitleBackColor(OLE_COLOR);
  property-get TitleBackColor: OLE_COLOR;
  property-put TitleFontColor(OLE_COLOR);
  property-get TitleFontColor: OLE_COLOR;
  property-get IDForItem(lIndex:I4): I4;
  property-get ItemForID(wID:I4): I4;
  function EmulateMenuClick(wID:I4);
  property-get OfficeXpStyle: bool;
  property-put OfficeXpStyle(bool);
  property-get GradientHighlight: bool;
  property-put GradientHighlight(bool);
  property-get ButtonHighlight: bool;
  property-put ButtonHighlight(bool);
  property-get HeaderStyle: ECNMHeaderStyle;
  property-put HeaderStyle(ECNMHeaderStyle);
  property-get MenuCount: I4;
  property-get HighlightCheckedItems: bool;
  property-put HighlightCheckedItems(bool);
  property-get NoMenuAnimation: bool;
  property-put NoMenuAnimation(bool);
  property-get Tag: BSTR;
  property-put Tag(BSTR);
  property-get CurrentlyRestoredKey: BSTR;
  function Store(sKey:BSTR);
  function Restore(sKey:BSTR);
  function StoreToFile(iFile:I4; sFile:BSTR): variant;
  function RestoreFromFile(iFile:I4; sFile:BSTR): variant;
  property-get hWndOwner: I4;
  property-put hWndOwner(I4);
  property-put ImageList(^variant);
  function AddItem(sCaption:BSTR; sHelptext:BSTR; lItemData:I4; lParentIndex:I4; lIconIndex:I4; bChecked:bool; bEnabled:bool; sKey:BSTR): I4;
  function InsertItem(sCaption:BSTR; vKeyBefore:variant; sHelptext:BSTR; lItemData:I4; lIconIndex:I4; bChecked:bool; bEnabled:bool; sKey:BSTR): I4;
  function ReplaceItem(vKey:variant; [sCaption:variant; sHelptext:variant; lItemData:variant; lIconIndex:variant; bChecked:variant; bEnabled:variant]): I4;
  function RemoveItem(vKey:variant);
  function ClearSubMenusOfItem(vKey:variant): I4;
  property-get IndexForKey(sKey:BSTR): I4;
  property-get ItemKey(lIndex:I4): BSTR;
  property-put ItemKey(lIndex:I4; BSTR);
  property-get ItemData(lIndex:I4): I4;
  property-get ItemParentIndex(lIndex:I4): I4;
  property-put ItemData(lIndex:I4; I4);
  property-put ItemIcon(lIndex:I4; I4);
  property-get ItemIcon(lIndex:I4): I4;
  property-get ItemInfrequentlyUsed(lIndex:I4): bool;
  property-put ItemInfrequentlyUsed(lIndex:I4; bool);
  property-get HideInfrequentlyUsed: bool;
  property-put HideInfrequentlyUsed(bool);
  property-get Checked(lIndex:I4): bool;
  property-put Checked(lIndex:I4; bool);
  property-get RadioCheck(lIndex:I4): bool;
  property-put RadioCheck(lIndex:I4; bool);
  property-get ShowCheckAndIcon(lIndex:I4): bool;
  property-put ShowCheckAndIcon(lIndex:I4; bool);
  property-get RedisplayMenuOnClick(lIndex:I4): bool;
  property-put RedisplayMenuOnClick(lIndex:I4; bool);
  function GroupToggle(lIndex:I4; bRadio:bool);
  property-get Enabled(lIndex:I4): bool;
  property-put Enabled(lIndex:I4; bool);
  property-get Caption(lIndex:I4): BSTR;
  property-put Caption(lIndex:I4; BSTR);
  property-get Visible(lIndex:I4): bool;
  property-put Visible(lIndex:I4; bool);
  property-get HelpText(lIndex:I4): BSTR;
  property-put HelpText(lIndex:I4; BSTR);
  property-get Header(lIndex:I4): bool;
  property-put Header(lIndex:I4; bool);
  property-get OwnerDraw(lIndex:I4): bool;
  property-put OwnerDraw(lIndex:I4; bool);
  property-get Default(lIndex:I4): bool;
  property-put Default(lIndex:I4; bool);
  function Clear;
  function ShowPopupMenu(lLeft:I4; lTop:I4; lExcludeLeft:I4; lExcludeTop:I4; lExcludeRight:I4; lExcludeBottom:I4; bTryToKeepLeft:bool): I4;
  function ShowPopupMenuAtIndex(lLeft:I4; lTop:I4; lExcludeLeft:I4; lExcludeTop:I4; lExcludeRight:I4; lExcludeBottom:I4; bTryToKeepLeft:bool; lIndex:I4): I4;
  function ShowPopupAbsolute(lLeftPixel:I4; lTopPixel:I4; lIndex:I4; bTryToKeepLeft:bool): I4;
  property-get hMenu(lIndex:I4): I4;
  property-put TickIconIndex(I4);
  property-get TickIconIndex: I4;
  property-put OptionIconIndex(I4);
  property-get OptionIconIndex: I4;
  function CreateSubClass(out hWndA:^I4);
  function DestroySubClass;
  property-get MenuItemHeight(lIndex:I4): I4;
  property-get MenuItemWidth(lIndex:I4): I4;

Class PopupMenu;
GUID={F4D2B714-6367-4EEE-ABB5-327283209E53};
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);
  function ToolbarMenuChevronPress;
  property-get AcceleratorsActive: bool;
  property-get BackgroundPicture: ^Picture;
  property-put BackgroundPicture(^^Picture);
  property-putref BackgroundPicture(^^Picture);
  property-get ImageProcessHighlights: bool;
  property-put ImageProcessHighlights(bool);
  function ClearBackgroundPicture;
  property-put Font(^^IFont);
  property-putref Font(^^IFont);
  property-get Font: ^IFont;
  property-put ActiveMenuForeColor(OLE_COLOR);
  property-get ActiveMenuForeColor: OLE_COLOR;
  property-put ActiveMenuBackStartColor(OLE_COLOR);
  property-get ActiveMenuBackStartColor: OLE_COLOR;
  property-put ActiveMenuBackEndColor(OLE_COLOR);
  property-get ActiveMenuBackEndColor: OLE_COLOR;
  property-put MenuFontForeColor(OLE_COLOR);
  property-get MenuFontForeColor: OLE_COLOR;
  property-put MenuBackColor(OLE_COLOR);
  property-get MenuBackColor: OLE_COLOR;
  property-put TitleBackColor(OLE_COLOR);
  property-get TitleBackColor: OLE_COLOR;
  property-put TitleFontColor(OLE_COLOR);
  property-get TitleFontColor: OLE_COLOR;
  property-get IDForItem(lIndex:I4): I4;
  property-get ItemForID(wID:I4): I4;
  function EmulateMenuClick(wID:I4);
  property-get OfficeXpStyle: bool;
  property-put OfficeXpStyle(bool);
  property-get GradientHighlight: bool;
  property-put GradientHighlight(bool);
  property-get ButtonHighlight: bool;
  property-put ButtonHighlight(bool);
  property-get HeaderStyle: ECNMHeaderStyle;
  property-put HeaderStyle(ECNMHeaderStyle);
  property-get MenuCount: I4;
  property-get HighlightCheckedItems: bool;
  property-put HighlightCheckedItems(bool);
  property-get NoMenuAnimation: bool;
  property-put NoMenuAnimation(bool);
  property-get Tag: BSTR;
  property-put Tag(BSTR);
  property-get CurrentlyRestoredKey: BSTR;
  function Store(sKey:BSTR);
  function Restore(sKey:BSTR);
  function StoreToFile(iFile:I4; sFile:BSTR): variant;
  function RestoreFromFile(iFile:I4; sFile:BSTR): variant;
  property-get hWndOwner: I4;
  property-put hWndOwner(I4);
  property-put ImageList(^variant);
  function AddItem(sCaption:BSTR; sHelptext:BSTR; lItemData:I4; lParentIndex:I4; lIconIndex:I4; bChecked:bool; bEnabled:bool; sKey:BSTR): I4;
  function InsertItem(sCaption:BSTR; vKeyBefore:variant; sHelptext:BSTR; lItemData:I4; lIconIndex:I4; bChecked:bool; bEnabled:bool; sKey:BSTR): I4;
  function ReplaceItem(vKey:variant; [sCaption:variant; sHelptext:variant; lItemData:variant; lIconIndex:variant; bChecked:variant; bEnabled:variant]): I4;
  function RemoveItem(vKey:variant);
  function ClearSubMenusOfItem(vKey:variant): I4;
  property-get IndexForKey(sKey:BSTR): I4;
  property-get ItemKey(lIndex:I4): BSTR;
  property-put ItemKey(lIndex:I4; BSTR);
  property-get ItemData(lIndex:I4): I4;
  property-get ItemParentIndex(lIndex:I4): I4;
  property-put ItemData(lIndex:I4; I4);
  property-put ItemIcon(lIndex:I4; I4);
  property-get ItemIcon(lIndex:I4): I4;
  property-get ItemInfrequentlyUsed(lIndex:I4): bool;
  property-put ItemInfrequentlyUsed(lIndex:I4; bool);
  property-get HideInfrequentlyUsed: bool;
  property-put HideInfrequentlyUsed(bool);
  property-get Checked(lIndex:I4): bool;
  property-put Checked(lIndex:I4; bool);
  property-get RadioCheck(lIndex:I4): bool;
  property-put RadioCheck(lIndex:I4; bool);
  property-get ShowCheckAndIcon(lIndex:I4): bool;
  property-put ShowCheckAndIcon(lIndex:I4; bool);
  property-get RedisplayMenuOnClick(lIndex:I4): bool;
  property-put RedisplayMenuOnClick(lIndex:I4; bool);
  function GroupToggle(lIndex:I4; bRadio:bool);
  property-get Enabled(lIndex:I4): bool;
  property-put Enabled(lIndex:I4; bool);
  property-get Caption(lIndex:I4): BSTR;
  property-put Caption(lIndex:I4; BSTR);
  property-get Visible(lIndex:I4): bool;
  property-put Visible(lIndex:I4; bool);
  property-get HelpText(lIndex:I4): BSTR;
  property-put HelpText(lIndex:I4; BSTR);
  property-get Header(lIndex:I4): bool;
  property-put Header(lIndex:I4; bool);
  property-get OwnerDraw(lIndex:I4): bool;
  property-put OwnerDraw(lIndex:I4; bool);
  property-get Default(lIndex:I4): bool;
  property-put Default(lIndex:I4; bool);
  function Clear;
  function ShowPopupMenu(lLeft:I4; lTop:I4; lExcludeLeft:I4; lExcludeTop:I4; lExcludeRight:I4; lExcludeBottom:I4; bTryToKeepLeft:bool): I4;
  function ShowPopupMenuAtIndex(lLeft:I4; lTop:I4; lExcludeLeft:I4; lExcludeTop:I4; lExcludeRight:I4; lExcludeBottom:I4; bTryToKeepLeft:bool; lIndex:I4): I4;
  function ShowPopupAbsolute(lLeftPixel:I4; lTopPixel:I4; lIndex:I4; bTryToKeepLeft:bool): I4;
  property-get hMenu(lIndex:I4): I4;
  property-put TickIconIndex(I4);
  property-get TickIconIndex: I4;
  property-put OptionIconIndex(I4);
  property-get OptionIconIndex: I4;
  function CreateSubClass(out hWndA:^I4);
  function DestroySubClass;
  property-get MenuItemHeight(lIndex:I4): I4;
  property-get MenuItemWidth(lIndex:I4): I4;
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);
  property-get MsgResponse: EMsgResponse;
  property-put MsgResponse(EMsgResponse);
  function WindowProc(hwnd:I4; iMsg:I4; wParam:I4; lParam:I4): I4;
  function Click(out ItemNumber:^I4);
  function ItemHighlight(out ItemNumber:^I4; out bEnabled:^bool; out bSeparator:^bool);
  function MenuExit;
  function InitPopupMenu(out ParentItemNumber:^I4);
  function UnInitPopupMenu(out ParentItemNumber:^I4);
  function DrawItem(hDC:I4; lMenuIndex:I4; out lLeft:^I4; out lTop:^I4; out lRight:^I4; out lBottom:^I4; bSelected:bool; bChecked:bool; bDisabled:bool; out bDoDefault:^bool);
  function MeasureItem(lMenuIndex:I4; out lWidth:^I4; out lHeight:^I4);

Dispatch _clsMouse;
GUID={5ACB8211-9C80-4DBD-A67C-B765512383E3};
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);
  property-put ClickDelay(I4);
  property-get ClickDelay: I4;
  function ButtonPress(Button:MouseButtonConstants);
  function ButtonRelease(Button:MouseButtonConstants);
  function MoveToWindow(hwnd:I4);
  function TurnWheel(Notches:I4; Direction:WheelDirections);
  property-get X: I4;
  property-get Y: I4;
  property-put X(I4);
  property-put Y(I4);
  function MoveTo(X:I4; Y:I4);
  function Click(eButton:MouseButtonConstants);
  function ClickButton(CtrlHwnd:I4; eButton:MouseButtonConstants);

Class clsMouse;
GUID={C506743A-7B4A-4BDC-B407-803C0FDC0B4B};
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);
  property-put ClickDelay(I4);
  property-get ClickDelay: I4;
  function ButtonPress(Button:MouseButtonConstants);
  function ButtonRelease(Button:MouseButtonConstants);
  function MoveToWindow(hwnd:I4);
  function TurnWheel(Notches:I4; Direction:WheelDirections);
  property-get X: I4;
  property-get Y: I4;
  property-put X(I4);
  property-put Y(I4);
  function MoveTo(X:I4; Y:I4);
  function Click(eButton:MouseButtonConstants);
  function ClickButton(CtrlHwnd:I4; eButton:MouseButtonConstants);

Dispatch _CTimer;
GUID={645A6C56-68EF-493E-8875-CD2BBF7114C1};
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);
  property-get Item: variant;
  property-put Item(^variant);
  property-putref Item(^variant);
  property-get Interval: I4;
  property-put Interval(^I4);
  function PulseTimer;

Class CTimer;
GUID={8AEB8AFC-1F9C-45D5-9983-BC5017740E0B};
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);
  property-get Item: variant;
  property-put Item(^variant);
  property-putref Item(^variant);
  property-get Interval: I4;
  property-put Interval(^I4);
  function PulseTimer;
  function ThatTime;

Dispatch _ISubclass;
GUID={E649DBD4-520E-4068-901F-1A03E8520728};
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);
  property-get MsgResponse: EMsgResponse;
  property-put MsgResponse(EMsgResponse);
  function WindowProc(hwnd:I4; iMsg:I4; wParam:I4; lParam:I4): I4;

Class ISubclass;
GUID={775D0B8C-E5D8-49F5-8EA8-5F8AC881643C};
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);
  property-get MsgResponse: EMsgResponse;
  property-put MsgResponse(EMsgResponse);
  function WindowProc(hwnd:I4; iMsg:I4; wParam:I4; lParam:I4): I4;

Dispatch _clsSystem;
GUID={94EA89D0-AA39-49FF-A5AA-4ECEF31502D4};
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);
  function RestoreDataBase(out BackupFileName:^BSTR; out DbName:^BSTR);
  function ExecuteProc(ProcName:BSTR; out ErrMsg:^BSTR): variant;
  function ExecuteSQL(SqlStr:BSTR; out ErrMsg:^BSTR): ^UserDefined;
  function WriteErrLog(out ErrLog:^BSTR);
  property-get ConnString: BSTR;
  function EncryptPwd(out sXorPwl:^BSTR): variant;
  function DecryptPwd(out sXorPwl:^BSTR): variant;
  property-get ConfigFile: BSTR;
  property-put ConfigFile(BSTR);
  function SaveString(hKey:hKeyNames; strPath:BSTR; StrValue:BSTR; Value:BSTR; dwType:dwType);
  function DeleteValue(hKey:hKeyNames; strPath:BSTR; StrValue:BSTR): variant;
  function EnumerateRegKeys(out KeyRoot:^hKeyNames; out KeyPath:^BSTR): BSTR;
  function EnumRegistryValues(hKey:hKeyNames; KeyName:BSTR): ^variant;
  function GetString(out hKey:^hKeyNames; out KeyName:^BSTR; out ValueName:^BSTR; StrDefault:BSTR): variant;
  function RegQueryStringValue(hKey:I4; strValueName:BSTR): variant;
  function Associate(out AppTitle:^BSTR; out FileExtension:^BSTR; out FileTypeDescription:^BSTR; out sFileName:^BSTR; out IconFileName:^BSTR; out Parameters:^BSTR): variant;
  function RemoveAssociate(out AppTitle:^BSTR; out FileExtension:^BSTR): variant;
  function GetDriveType(out sDrive:^BSTR): BSTR;
  function GetMacAddress(out Adapter:^I2; out sHostName:^BSTR): BSTR;
  function DeletePaper(out PaperName:^BSTR);
  function SetPaperXP(out PaperOrientation:^PrinterOrientation; PaperName:BSTR; PaperWidth:I4; PaperHeight:I4; MyHwnd:I4): I2;
  function SetOrientation9x(out orientation:^PrinterOrientation);
  property-get GetOSName: BSTR;
  property-get GetHostName: BSTR;
  property-get GetIP(out strHostName:^variant): BSTR;
  property-get GetHandle: I4;
  property-put Translucency(UI1);
  function AlwaysOnTop(out xForm:^IDispatch; out Action:^bool);
  property-get ComputerName: BSTR;
  function VerFitScreen(out xForm:^IDispatch; out Center:^bool; out UseFullScreen:^bool);
  function HorFitScreen(out xForm:^IDispatch; out Center:^bool);
  property-get OSName: OPERATING_SYSTEM;
  function ShutDown(ShutDownAction:SHUTDOWN_ACTION);
  function CenterForm(out xForm:^IDispatch; [out xForm2:^variant]);
  function FitScreen(out xForm:^IDispatch; Percent:R4);
  property-get UserName: BSTR;
  function ShowPopInfo(out Message:^BSTR; out Title:^BSTR; out Icon:^IconType; out ShowClose:^bool; out AutoCloseTime:^I2; out FontSize:^I2; out FontFace:^BSTR; out PutAtCurrentMousePos:^bool; out XinPixels:^I2; out YinPixels:^I2; out Button1:^bool; out Caption1:^BSTR; out Button2:^bool; out Caption2:^BSTR; out Button3:^bool; out Caption3:^BSTR; out FormX:^IDispatch; out vbMod:^bool; out intBoxes:^I2; out Style:^BSTR);
  function ShowAlert(out FormX:^IDispatch; out MessageText:^BSTR; Duration:I4; Sound:SoundID; out FontSize:^I2; out FontFace:^BSTR): BSTR;
  property-get ScreenTop: I4;
  property-get ScreenRight: I4;
  property-get ScreenBottom: I4;
  property-get ScreenLeft: I4;
  function RefreshDesktop;

Class clsSystem;
GUID={D64BA274-95A2-4F08-AAC1-E9551787C92F};
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);
  function RestoreDataBase(out BackupFileName:^BSTR; out DbName:^BSTR);
  function ExecuteProc(ProcName:BSTR; out ErrMsg:^BSTR): variant;
  function ExecuteSQL(SqlStr:BSTR; out ErrMsg:^BSTR): ^UserDefined;
  function WriteErrLog(out ErrLog:^BSTR);
  property-get ConnString: BSTR;
  function EncryptPwd(out sXorPwl:^BSTR): variant;
  function DecryptPwd(out sXorPwl:^BSTR): variant;
  property-get ConfigFile: BSTR;
  property-put ConfigFile(BSTR);
  function SaveString(hKey:hKeyNames; strPath:BSTR; StrValue:BSTR; Value:BSTR; dwType:dwType);
  function DeleteValue(hKey:hKeyNames; strPath:BSTR; StrValue:BSTR): variant;
  function EnumerateRegKeys(out KeyRoot:^hKeyNames; out KeyPath:^BSTR): BSTR;
  function EnumRegistryValues(hKey:hKeyNames; KeyName:BSTR): ^variant;
  function GetString(out hKey:^hKeyNames; out KeyName:^BSTR; out ValueName:^BSTR; StrDefault:BSTR): variant;
  function RegQueryStringValue(hKey:I4; strValueName:BSTR): variant;
  function Associate(out AppTitle:^BSTR; out FileExtension:^BSTR; out FileTypeDescription:^BSTR; out sFileName:^BSTR; out IconFileName:^BSTR; out Parameters:^BSTR): variant;
  function RemoveAssociate(out AppTitle:^BSTR; out FileExtension:^BSTR): variant;
  function GetDriveType(out sDrive:^BSTR): BSTR;
  function GetMacAddress(out Adapter:^I2; out sHostName:^BSTR): BSTR;
  function DeletePaper(out PaperName:^BSTR);
  function SetPaperXP(out PaperOrientation:^PrinterOrientation; PaperName:BSTR; PaperWidth:I4; PaperHeight:I4; MyHwnd:I4): I2;
  function SetOrientation9x(out orientation:^PrinterOrientation);
  property-get GetOSName: BSTR;
  property-get GetHostName: BSTR;
  property-get GetIP(out strHostName:^variant): BSTR;
  property-get GetHandle: I4;
  property-put Translucency(UI1);
  function AlwaysOnTop(out xForm:^IDispatch; out Action:^bool);
  property-get ComputerName: BSTR;
  function VerFitScreen(out xForm:^IDispatch; out Center:^bool; out UseFullScreen:^bool);
  function HorFitScreen(out xForm:^IDispatch; out Center:^bool);
  property-get OSName: OPERATING_SYSTEM;
  function ShutDown(ShutDownAction:SHUTDOWN_ACTION);
  function CenterForm(out xForm:^IDispatch; [out xForm2:^variant]);
  function FitScreen(out xForm:^IDispatch; Percent:R4);
  property-get UserName: BSTR;
  function ShowPopInfo(out Message:^BSTR; out Title:^BSTR; out Icon:^IconType; out ShowClose:^bool; out AutoCloseTime:^I2; out FontSize:^I2; out FontFace:^BSTR; out PutAtCurrentMousePos:^bool; out XinPixels:^I2; out YinPixels:^I2; out Button1:^bool; out Caption1:^BSTR; out Button2:^bool; out Caption2:^BSTR; out Button3:^bool; out Caption3:^BSTR; out FormX:^IDispatch; out vbMod:^bool; out intBoxes:^I2; out Style:^BSTR);
  function ShowAlert(out FormX:^IDispatch; out MessageText:^BSTR; Duration:I4; Sound:SoundID; out FontSize:^I2; out FontFace:^BSTR): BSTR;
  property-get ScreenTop: I4;
  property-get ScreenRight: I4;
  property-get ScreenBottom: I4;
  property-get ScreenLeft: I4;
  function RefreshDesktop;

Dispatch _clsSystray;
GUID={35F0A7B8-99A4-48F1-B0C3-1407957D6C82};
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);
  function HowUse;
  function SetProc(lProc:I4);
  function lhWnd: I4;
  property-put ExtraParam(I4);
  property-get ExtraParam: I4;
  function SysTrayShow(bShow:bool);
  function BalloonShow(bShow:bool; lTimeout:I4; bNoSound:bool): bool;
  property-get IsBalloonCapable: bool;
  function BeforePopup;
  function SysTrayIconFromHandle(lIcon:I4): variant;
  function SysTrayIconFromFile(sFile:BSTR): bool;
  function SysTrayIconFromRes(sResName:BSTR): bool;
  function SysTrayIconFromCompRes(sResFile:BSTR; lIconIndex:I4): bool;
  property-get SysTrayToolTip: BSTR;
  property-put SysTrayToolTip(BSTR);
  property-get BalloonIcon: ttIconType;
  property-put BalloonIcon(^ttIconType);
  property-get BalloonTitle: BSTR;
  property-put BalloonTitle(^BSTR);
  property-get BalloonText: BSTR;
  property-put BalloonText(^BSTR);

Class clsSystray;
GUID={F37DBDEC-EB8B-4C37-88A0-BE7B79EFAF5F};
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);
  function HowUse;
  function SetProc(lProc:I4);
  function lhWnd: I4;
  property-put ExtraParam(I4);
  property-get ExtraParam: I4;
  function SysTrayShow(bShow:bool);
  function BalloonShow(bShow:bool; lTimeout:I4; bNoSound:bool): bool;
  property-get IsBalloonCapable: bool;
  function BeforePopup;
  function SysTrayIconFromHandle(lIcon:I4): variant;
  function SysTrayIconFromFile(sFile:BSTR): bool;
function SysTrayIconFromRes(sResName:BSTR): bool;
  function SysTrayIconFromCompRes(sResFile:BSTR; lIconIndex:I4): bool;
  property-get SysTrayToolTip: BSTR;
  property-put SysTrayToolTip(BSTR);
  property-get BalloonIcon: ttIconType;
  property-put BalloonIcon(^ttIconType);
  property-get BalloonTitle: BSTR;
  property-put BalloonTitle(^BSTR);
  property-get BalloonText: BSTR;
  property-put BalloonText(^BSTR);
  function MouseMove;
  function MouseDown(out Button:^I2);
  function MouseUp(out Button:^I2);
  function MouseDblClick(out Button:^I2);
  function BalloonClose;
  function BalloonClick;
  function BalloonShow;
  function BalloonHide;

Dispatch __PopupMenu;
GUID={21F7D77F-EE4A-4215-AE9B-71354679D103};
  function Click(out ItemNumber:^I4);
  function ItemHighlight(out ItemNumber:^I4; out bEnabled:^bool; out bSeparator:^bool);
  function MenuExit;
  function InitPopupMenu(out ParentItemNumber:^I4);
  function UnInitPopupMenu(out ParentItemNumber:^I4);
  function DrawItem(hDC:I4; lMenuIndex:I4; out lLeft:^I4; out lTop:^I4; out lRight:^I4; out lBottom:^I4; bSelected:bool; bChecked:bool; bDisabled:bool; out bDoDefault:^bool);
  function MeasureItem(lMenuIndex:I4; out lWidth:^I4; out lHeight:^I4);

Dispatch __CTimer;
GUID={A4912D25-E95F-4DB1-9C94-537C53A16AAF};
  function ThatTime;

Dispatch __clsSystray;
GUID={209025B6-D269-4F30-B554-83CFC2DC7411};
  function MouseMove;
  function MouseDown(out Button:^I2);
  function MouseUp(out Button:^I2);
  function MouseDblClick(out Button:^I2);
  function BalloonClose;
  function BalloonClick;
  function BalloonShow;
  function BalloonHide;

Enum Tray_Style; // Contains global members used for the server.
GUID={34A5A1F4-F853-4C85-B0BE-EB5D2D3588E7};
  Simple = 0;
  Balloon = 1;

Enum TRAY_MessageIcon; // Contains global members used for the server.
GUID={F5352AE8-5617-4640-8B1B-C580FC98505C};
  NONE = 0;
  Tray_Information = 64;
  Tray_Exclamation = 2;
  Tray_Warning = 3;

Enum MouseMessages; // Contains global members used for the server.
GUID={5A06101E-5180-46D6-AC92-70B0E17F52C6};
  MouseOver = $200;
  LEFTBUTTONDOUBLECLICK = $203;
  LEFTBUTTONUP = $202;
  LEFTBUTTONDOWN = $201;
  MIDDLEBUTTONDOUBLECLICK = $209;
  MIDDLEBUTTONDOWN = $207;
  MIDDLEBUTTONUP = $208;
  RIGHTBUTTONDOUBLECLICK = $206;
  RIGHTBUTTONDOWN = $204;
  RIGHTBUTTONUP = $205;

Enum OPERATING_SYSTEM; // Contains global members used for the server.
GUID={8199ABC0-D2D8-4228-92F5-AF51716520D8};
  未知 = 8;
  WINDOWS98 = 1;
  WINDOWSME = 2;
  WINDOWS2000 = 5;
  WINDOWSXP = 6;
  WINDOWSNETSERVER = 7;

Enum SHUTDOWN_ACTION; // Contains global members used for the server.
GUID={B4B3C0EA-1D48-4946-8A4F-10AE56A1D253};
  LOGOFF = 0;
  REBOOT = 2;
  SHUTDWN = 1;
  POWEROFF = 8;

Enum UseFlag; // Provides window related functions. Many complex API's that are normally not used can be easily used through this class.
GUID={195A845B-8CE4-4EAD-B29D-522BA4834422};
  OnlyFolder = 1;
  AllowsEditBox = 16;
  UseNewUI = 64;

Enum cViewMode; // Provides window related functions. Many complex API's that are normally not used can be easily used through this class.
GUID={602DBC08-7B87-465D-AB2F-632563D7EA46};
  ViewLargeIcon = $7029;
  ViewSmallIcon = $702A;
  ViewList = $702B;
  ViewReport = $702C;
  ViewThumbnail = $702D;
  ViewTile = $702E;

Enum CSIDL; // Provides window related functions. Many complex API's that are normally not used can be easily used through this class.
GUID={EE26B7FE-8B26-4AAC-8D2A-CC3F8CBCE94B};
  CSIDL_DESKTOP = 0;
  CSIDL_INTERNET = 1;
  CSIDL_PROGRAMS = 2;
  CSIDL_CONTROLS = 3;
  CSIDL_PRINTERS = 4;
  CSIDL_PERSONAL = 5;
  CSIDL_FAVORITES = 6;
  CSIDL_STARTUP = 7;
  CSIDL_RECENT = 8;
  CSIDL_SENDTO = 9;
  CSIDL_STARTMENU = 11;
  CSIDL_DRIVES = 17;
  CSIDL_NETWORK = 18;
  CSIDL_NETHOOD = 19;
  CSIDL_FONTS = 20;
  CSIDL_TEMPLATES = 21;
  CSIDL_COMMON_STARTMENU = 22;
  CSIDL_APPDATA = 26;
  CSIDL_LOCAL_APPDATA = 28;
  CSIDL_COMMON_FAVORITES = 31;
  CSIDL_INTERNET_CACHE = 32;
  CSIDL_COOKIES = 33;
  CSIDL_HISTORY = 34;
  CSIDL_COMMON_APPDATA = 35;
  CSIDL_WINDOWS = 36;
  CSIDL_SYSTEM = 37;
  CSIDL_PROGRAM_FILES = 38;
  CSIDL_MYPICTURES = 39;
  CSIDL_PROGRAM_FILES_COMMON = 43;
  CSIDL_COMMON_TEMPLATES = 45;
  CSIDL_COMMON_DOCUMENTS = 46;
  CSIDL_COMMON_ADMINTOOLS = 47;
  CSIDL_ADMINTOOLS = 48;

Enum CSIDL_FOLDERPATH; // Provides window related functions. Many complex API's that are normally not used can be easily used through this class.
GUID={962AEC94-7182-4AAA-8141-C08405347A8B};
  SHGFP_TYPE_CURRENT = 0;
  SHGFP_TYPE_DEFAULT = 1;

Enum EShellShowConstants; // Provides window related functions. Many complex API's that are normally not used can be easily used through this class.
GUID={25E12D9D-4189-4330-9F68-3A177CBCD853};
  eSW_HIDE = 0;
  eSW_MAXIMIZE = 3;
  eSW_MINIMIZE = 6;
  eSW_SHOWMAXIMIZED = 3;
  eSW_SHOWMINIMIZED = 2;
  eSW_SHOWNORMAL = 1;
  eSW_SHOWNOACTIVATE = 4;
  eSW_SHOWNA = 8;
  eSW_SHOWMINNOACTIVE = 7;
  eSW_SHOWDEFAULT = 10;
  eSW_RESTORE = 9;
  eSW_SHOW = 5;

Enum Align;
GUID={D35EE62A-5C1C-4C23-B15E-1C98AFAA01CF};
  AlignLeft = 1;
  AlignCenter = 2;
  AlignRight = 3;

Enum CalFunction;
GUID={8595444A-5F08-4B7E-BFC5-12A7CC906D7D};
  cfsum = 1;
  cfAvg = 2;
  cfMax = 3;
  cfMin = 4;
  cfcount = 5;

Enum ECNMHeaderStyle;
GUID={32E1CDF4-B3A8-482E-9F37-73FA999D24D5};
  ecnmHeaderCaptionBar = 0;
  ecnmHeaderSeparator = 1;

Enum WheelDirections;
GUID={650654B5-D2C6-4888-BB20-72620904052A};
  meWheelForward = 120;
  meWheelBackward = -120;

Enum EErrorTimer;
GUID={77F3C84C-9317-48E2-AAA9-2529295218DC};
  BaseTimer = $3552;
  TooManyTimers = $3553;
  CantCreateTimer = $3554;

Enum EMsgResponse;
GUID={D6E14111-44BB-4A3F-98EC-C5FE7D3FA67A};
  Consume = 0;
  PostProcess = 1;
  Preprocess = 2;

Enum SoundID;
GUID={EF4443D4-DC8F-4651-A4D7-DB2AA2CD23CE};
  声音1 = 101;
  声音2 = 102;
  声音3 = 103;

Enum IconType;
GUID={4E7F94C6-1D9A-4842-9E4E-418A8FE857E9};
  vbExclamation = 48;
  vbCritical = 16;
  vbInformation = 64;
  vbNone = 0;

Enum PrinterOrientation;
GUID={7D455306-2668-4A35-8C41-CA89DF5D9CCC};
  纵向 = 1;
  横向 = 2;

Enum hKeyNames;
GUID={D8752544-11B4-481C-9A63-A566BFEA8B79};
  HKEY_CLASSES_ROOT = $80000000;
  HKEY_CURRENT_USER = $80000001;
  HKEY_LOCAL_MACHINE = $80000002;
  HKEY_USERS = $80000003;
  HKEY_CURRENT_CONFIG = $80000005;

Enum dwType;
GUID={221EE121-D586-47AE-9EDF-F159157521FA};
  REG_SZ = 1;
  REG_EXPAND_SZ = 2;
  REG_BINARY = 3;
  REG_DWORD = 4;

Record SIZEL;
GUID={0FF62BBA-D0A4-4865-9095-B08F394893C6};
  cx: I4;
  cy: I4;

Record FILETIME;
GUID={807AA059-7650-4095-9BFC-FAC07830280C};
  dwLowDateTime: I4;
  dwHighDateTime: I4;

Enum ttIconType;
GUID={46370427-1173-4DCA-9347-4352C87BF7C6};
  TTNoIcon = 0;
  TTIconInfo = 1;
  TTIconWarning = 2;
  TTIconError = 3;
  TTIconUser = 4;
ToolBarOcx; // XP控件组合(XP日历、XP Tab、XP进度条、MouseWheel、ToolBar、ImageList等)

Dispatch _cReBar;
GUID={E86B1357-8733-4011-B322-C3D67B466020};
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);
  function SaveLayout: BSTR;
  function RestoreLayout(sXml:BSTR; out sData:^^BSTR; out lhWnd:^^I4);
  property-get RowCount: I4;
  property-get RowHeight(lBand:I4): I4;
  function Autosize;
  property-get Position: ERBPositionConstants;
  property-put Position(ERBPositionConstants);
  property-get BandVisible(lBand:I4): bool;
  property-put BandVisible(lBand:I4; bool);
  property-get BandChildEdge(lBand:I4): bool;
  property-put BandChildEdge(lBand:I4; bool);
  property-get BandGripper(lBand:I4): bool;
  property-put BandGripper(lBand:I4; bool);
  property-get BandChevron(lBand:I4): bool;
  property-put BandChevron(lBand:I4; bool);
  property-get BandChildMinHeight(lBand:I4): I4;
  property-put BandChildMinHeight(lBand:I4; ^I4);
  property-get BandChildMaxHeight(lBand:I4): I4;
  property-put BandChildMaxHeight(lBand:I4; ^I4);
  property-get BandChildMinWidth(lBand:I4): I4;
  property-put BandChildMinWidth(lBand:I4; ^I4);
  property-get BandChildIdealWidth(lBand:I4): I4;
  property-put BandChildIdealWidth(lBand:I4; ^I4);
  function BandChildResized(lBand:I4; lWidth:I4; lHeight:I4);
  function BandMove(lBand:I4; lIndexTo:I4);
  function BandMinimise(lBand:I4);
  function BandMaximise(lBand:I4);
  function GetBandRectangle(lBand:I4; out lLeft:^I4; out lTop:^I4; out lRight:^I4; out lBottom:^I4);
  property-get BandCount: I4;
  property-get HasBitmap: bool;
  property-put ImageSource(ECRBImageSourceTypes);
  property-put ImageResourceID(I4);
  property-put ImageResourcehInstance(I4);
  property-put ImageFile(BSTR);
  property-put ImagePicture(^Picture);
  property-putref ImagePicture(^Picture);
  property-get BackgroundBitmap: BSTR;
  property-put BackgroundBitmap(BSTR);
  function AddBandByHwnd(hwnd:I4; sBandText:BSTR; bBreakLine:bool; bFixedSize:bool; [vData:variant]): I4;
  property-get BandIndexForId(wId:I4): I4;
  property-get BandIDForIndex(lIndex:I4): I4;
  property-get BandData(wId:I4): variant;
  property-get BandIndexForData(vData:variant): I4;
  function RebarSize;
  property-get hwnd: I4;
  property-get RebarHwnd: I4;
  property-get RebarHeight: I4;
  property-get RebarWidth: I4;
  function CreateRebar(hWndParent:I4): bool;
  function AddResizeObject(hWndParent:I4; hwnd:I4; ePosition:ERBPositionConstants): variant;
  function DestroyRebar;
  function DestroyRebarDontDestroyChildren;
  function RemoveAllRebarBands;
  function RemoveBand(lBand:I4);
  property-get Visible: bool;
  property-put Visible(bool);

Class cReBar;
GUID={CAFA3EDF-4951-4290-AA00-EA6538948F4C};
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);
  function SaveLayout: BSTR;
  function RestoreLayout(sXml:BSTR; out sData:^^BSTR; out lhWnd:^^I4);
  property-get RowCount: I4;
  property-get RowHeight(lBand:I4): I4;
  function Autosize;
  property-get Position: ERBPositionConstants;
  property-put Position(ERBPositionConstants);
  property-get BandVisible(lBand:I4): bool;
  property-put BandVisible(lBand:I4; bool);
  property-get BandChildEdge(lBand:I4): bool;
  property-put BandChildEdge(lBand:I4; bool);
  property-get BandGripper(lBand:I4): bool;
  property-put BandGripper(lBand:I4; bool);
  property-get BandChevron(lBand:I4): bool;
  property-put BandChevron(lBand:I4; bool);
  property-get BandChildMinHeight(lBand:I4): I4;
  property-put BandChildMinHeight(lBand:I4; ^I4);
  property-get BandChildMaxHeight(lBand:I4): I4;
  property-put BandChildMaxHeight(lBand:I4; ^I4);
  property-get BandChildMinWidth(lBand:I4): I4;
  property-put BandChildMinWidth(lBand:I4; ^I4);
  property-get BandChildIdealWidth(lBand:I4): I4;
  property-put BandChildIdealWidth(lBand:I4; ^I4);
  function BandChildResized(lBand:I4; lWidth:I4; lHeight:I4);
  function BandMove(lBand:I4; lIndexTo:I4);
  function BandMinimise(lBand:I4);
  function BandMaximise(lBand:I4);
  function GetBandRectangle(lBand:I4; out lLeft:^I4; out lTop:^I4; out lRight:^I4; out lBottom:^I4);
  property-get BandCount: I4;
  property-get HasBitmap: bool;
  property-put ImageSource(ECRBImageSourceTypes);
  property-put ImageResourceID(I4);
  property-put ImageResourcehInstance(I4);
  property-put ImageFile(BSTR);
  property-put ImagePicture(^Picture);
  property-putref ImagePicture(^Picture);
  property-get BackgroundBitmap: BSTR;
  property-put BackgroundBitmap(BSTR);
  function AddBandByHwnd(hwnd:I4; sBandText:BSTR; bBreakLine:bool; bFixedSize:bool; [vData:variant]): I4;
  property-get BandIndexForId(wId:I4): I4;
  property-get BandIDForIndex(lIndex:I4): I4;
  property-get BandData(wId:I4): variant;
  property-get BandIndexForData(vData:variant): I4;
  function RebarSize;
  property-get hwnd: I4;
  property-get RebarHwnd: I4;
  property-get RebarHeight: I4;
  property-get RebarWidth: I4;
  function CreateRebar(hWndParent:I4): bool;
  function AddResizeObject(hWndParent:I4; hwnd:I4; ePosition:ERBPositionConstants): variant;
  function DestroyRebar;
  function DestroyRebarDontDestroyChildren;
  function RemoveAllRebarBands;
  function RemoveBand(lBand:I4);
  property-get Visible: bool;
  property-put Visible(bool);
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);
  property-get MsgResponse: EMsgResponse;
  property-put MsgResponse(EMsgResponse);
  function WindowProc(hwnd:I4; iMsg:I4; wParam:I4; lParam:I4): I4;
  function HeightChanged(out lNewHeight:^I4);
  function BeginBandDrag(wId:I4; out bCancel:^bool);
  function EndBandDrag(wId:I4);
  function BandChildResize(wId:I4; lBandLeft:I4; lBandTop:I4; lBandRight:I4; lBandBottom:I4; out lChildLeft:^I4; out lChildTop:^I4; out lChildRight:^I4; out lChildBottom:^I4);
  function LayoutChanged;
  function ChevronPushed(wId:I4; lLeft:I4; lTop:I4; lRight:I4; lBottom:I4);

Dispatch _cToolbar;
GUID={1991E5E3-E7D6-4BEE-8852-138C867B1460};
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);
  property-get DrawStyle: TBToolbarDrawStyle;
  property-put DrawStyle(TBToolbarDrawStyle);
  function ChevronPress(X:I4; y:I4);
  property-get ChevronButton(eButton:ECTBChevronAdditionalButtons): bool;
  property-put ChevronButton(eButton:ECTBChevronAdditionalButtons; bool);
  property-get ChevronButtonCaption(eButton:ECTBChevronAdditionalButtons): BSTR;
  property-put ChevronButtonCaption(eButton:ECTBChevronAdditionalButtons; BSTR);
  property-get AutosizeButtonPadding: I4;
  property-put AutosizeButtonPadding(I4);
  function GetComCtrlVersionInfo(out lMajor:^I4; out lMinor:^I4; out lBuild:^I4);
  property-get ButtonCount: I4;
  property-get ButtonToolTip(vButton:variant): BSTR;
  property-put ButtonToolTip(vButton:variant; BSTR);
  property-get ButtonImage(vButton:variant): I4;
  property-put ButtonImage(vButton:variant; I4);
  property-get ButtonCaption(vButton:variant): BSTR;
  property-put ButtonCaption(vButton:variant; BSTR);
  property-get ButtonTextVisible(vButton:variant): bool;
  property-put ButtonTextVisible(vButton:variant; bool);
  property-get ButtonIndex(vButton:variant): I2;
  property-get ButtonKey(iButton:I4): BSTR;
  property-get ButtonEnabled(vButton:variant): bool;
  property-put ButtonEnabled(vButton:variant; bool);
  property-get ButtonVisible(vButton:variant): bool;
  property-put ButtonVisible(vButton:variant; bool);
  property-get ButtonWidth(vButton:variant): variant;
  property-put ButtonWidth(vButton:variant; variant);
  property-get ButtonHeight(vButton:variant): I4;
  property-get ButtonLeft(vButton:variant): I4;
  property-get ButtonTop(vButton:variant): I4;
  property-get ButtonHot(vButton:variant): bool;
  property-put ButtonHot(vButton:variant; bool);
  property-get MaxButtonWidth: I4;
  property-get MaxButtonHeight: I4;
  property-get ButtonChecked(vButton:variant): bool;
  property-put ButtonChecked(vButton:variant; bool);
  property-get ButtonPressed(vButton:variant): bool;
  property-put ButtonPressed(vButton:variant; bool);
  property-get ButtonStyle(vButton:variant): ECTBToolButtonSyle;
  property-put ButtonStyle(vButton:variant; ECTBToolButtonSyle);
  property-get ButtonControl(vButton:variant): I4;
  property-get ButtonTextWrap(vButton:variant): bool;
  property-put ButtonTextWrap(vButton:variant; bool);
  property-get ButtonTextEllipses(vButton:variant): bool;
  property-put ButtonTextEllipses(vButton:variant; bool);
  property-get hwnd: I4;
  property-get TitleBarModifier: bool;
  property-put TitleBarModifier(bool);
  function DestroyToolBar;
  function CreateFromMenu(out cMenu:^IDispatch);
  function CreateFromMenu2(out cMenu:^IDispatch; eStyle:ECTBToolbarFromMenuStyle; sMenuParentKey:BSTR);
  property-get DropDownAlign: ECTBDropDownAlign;
  property-put DropDownAlign(ECTBDropDownAlign);
  function CreateToolbar(out ButtonSize:^I2; out StyleList:^bool; out WithText:^bool; out Wrappable:^bool; out PicSize:^I2);
  property-get ListStyle: bool;
  property-put ListStyle(bool);
  property-get Wrappable: bool;
  property-put Wrappable(bool);
  property-put ImageSource(ImageSourceTypes);
  property-put ImageResourceID(I4);
  property-put ImageResourcehInstance(I4);
  property-put ImageFile(BSTR);
  function SetImageList(vThis:variant; eType:ECTBImageListTypes);
  property-put ImagePicture(^Picture);
  property-putref ImagePicture(^Picture);
  property-put ImageStandardBitmapType(ECTBStandardImageSourceTypes);
  function RemoveButton(vButton:variant);
  function AddControl(lhWnd:I4; vButtonBefore:variant; sKey:BSTR);
  function SetControl(lhWnd:I4; vButton:variant);
  property-get ControlStretch(vButton:variant): bool;
  property-put ControlStretch(vButton:variant; bool);
  function AddButton(sTip:BSTR; iImage:I2; vButtonBefore:variant; xLarge:I2; sButtonText:BSTR; eButtonStyle:ECTBToolButtonSyle; sKey:BSTR);
  function ResizeToolbar;
  property-get ToolbarWidth: I4;
  property-get ToolbarHeight: I4;
  function ButtonSize(out xWidth:^I2; out xHeight:^I2);
  function GetDropDownPosition(ID:I2; out X:^I4; out y:^I4);
  function RaiseButtonClick(iIDButton:I4): variant;

Class cToolbar;
GUID={2AD10FD5-CBE4-4B6D-AB32-D8ABB23A9EB5};
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);
  property-get DrawStyle: TBToolbarDrawStyle;
  property-put DrawStyle(TBToolbarDrawStyle);
  function ChevronPress(X:I4; y:I4);
  property-get ChevronButton(eButton:ECTBChevronAdditionalButtons): bool;
  property-put ChevronButton(eButton:ECTBChevronAdditionalButtons; bool);
  property-get ChevronButtonCaption(eButton:ECTBChevronAdditionalButtons): BSTR;
  property-put ChevronButtonCaption(eButton:ECTBChevronAdditionalButtons; BSTR);
  property-get AutosizeButtonPadding: I4;
  property-put AutosizeButtonPadding(I4);
  function GetComCtrlVersionInfo(out lMajor:^I4; out lMinor:^I4; out lBuild:^I4);
  property-get ButtonCount: I4;
  property-get ButtonToolTip(vButton:variant): BSTR;
  property-put ButtonToolTip(vButton:variant; BSTR);
  property-get ButtonImage(vButton:variant): I4;
  property-put ButtonImage(vButton:variant; I4);
  property-get ButtonCaption(vButton:variant): BSTR;
  property-put ButtonCaption(vButton:variant; BSTR);
  property-get ButtonTextVisible(vButton:variant): bool;
  property-put ButtonTextVisible(vButton:variant; bool);
  property-get ButtonIndex(vButton:variant): I2;
  property-get ButtonKey(iButton:I4): BSTR;
  property-get ButtonEnabled(vButton:variant): bool;
  property-put ButtonEnabled(vButton:variant; bool);
  property-get ButtonVisible(vButton:variant): bool;
  property-put ButtonVisible(vButton:variant; bool);
  property-get ButtonWidth(vButton:variant): variant;
  property-put ButtonWidth(vButton:variant; variant);
  property-get ButtonHeight(vButton:variant): I4;
  property-get ButtonLeft(vButton:variant): I4;
  property-get ButtonTop(vButton:variant): I4;
  property-get ButtonHot(vButton:variant): bool;
  property-put ButtonHot(vButton:variant; bool);
  property-get MaxButtonWidth: I4;
  property-get MaxButtonHeight: I4;
  property-get ButtonChecked(vButton:variant): bool;
  property-put ButtonChecked(vButton:variant; bool);
  property-get ButtonPressed(vButton:variant): bool;
  property-put ButtonPressed(vButton:variant; bool);
  property-get ButtonStyle(vButton:variant): ECTBToolButtonSyle;
  property-put ButtonStyle(vButton:variant; ECTBToolButtonSyle);
  property-get ButtonControl(vButton:variant): I4;
  property-get ButtonTextWrap(vButton:variant): bool;
  property-put ButtonTextWrap(vButton:variant; bool);
  property-get ButtonTextEllipses(vButton:variant): bool;
  property-put ButtonTextEllipses(vButton:variant; bool);
  property-get hwnd: I4;
  property-get TitleBarModifier: bool;
  property-put TitleBarModifier(bool);
  function DestroyToolBar;
  function CreateFromMenu(out cMenu:^IDispatch);
  function CreateFromMenu2(out cMenu:^IDispatch; eStyle:ECTBToolbarFromMenuStyle; sMenuParentKey:BSTR);
  property-get DropDownAlign: ECTBDropDownAlign;
  property-put DropDownAlign(ECTBDropDownAlign);
  function CreateToolbar(out ButtonSize:^I2; out StyleList:^bool; out WithText:^bool; out Wrappable:^bool; out PicSize:^I2);
  property-get ListStyle: bool;
  property-put ListStyle(bool);
  property-get Wrappable: bool;
  property-put Wrappable(bool);
  property-put ImageSource(ImageSourceTypes);
  property-put ImageResourceID(I4);
  property-put ImageResourcehInstance(I4);
  property-put ImageFile(BSTR);
  function SetImageList(vThis:variant; eType:ECTBImageListTypes);
  property-put ImagePicture(^Picture);
  property-putref ImagePicture(^Picture);
  property-put ImageStandardBitmapType(ECTBStandardImageSourceTypes);
  function RemoveButton(vButton:variant);
  function AddControl(lhWnd:I4; vButtonBefore:variant; sKey:BSTR);
  function SetControl(lhWnd:I4; vButton:variant);
  property-get ControlStretch(vButton:variant): bool;
  property-put ControlStretch(vButton:variant; bool);
  function AddButton(sTip:BSTR; iImage:I2; vButtonBefore:variant; xLarge:I2; sButtonText:BSTR; eButtonStyle:ECTBToolButtonSyle; sKey:BSTR);
  function ResizeToolbar;
  property-get ToolbarWidth: I4;
  property-get ToolbarHeight: I4;
  function ButtonSize(out xWidth:^I2; out xHeight:^I2);
  function GetDropDownPosition(ID:I2; out X:^I4; out y:^I4);
  function RaiseButtonClick(iIDButton:I4): variant;
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);
  property-get MsgResponse: EMsgResponse;
  property-put MsgResponse(EMsgResponse);
  function WindowProc(hwnd:I4; iMsg:I4; wParam:I4; lParam:I4): I4;
  function ButtonClick(lButton:I4);
  function DropDownPress(lButton:I4);
  function HotItemChange(iNew:I4; iOld:I4; eReason:ECTBHotItemChangeReasonConstants);
  function CustomiseBegin;
  function CustomiseCanInsertBefore(lButton:I4; out bCanInsert:^bool);
  function CustomiseCanDelete(lButton:I4; out bCanDelete:^bool);
  function CustomiseHelpPressed;
  function CustomiseResetPressed;

Dispatch _cToolbarHost;
GUID={97DB6E69-9988-4359-A4C4-7DEFAF82E841};
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);
  function Refresh;
  property-get MDIToolbarMinWidth: I4;
  property-get MDIToolbar: bool;
  property-put MDIToolbar(bool);
  property-get MDIToolbarHideButtons: bool;
  property-put MDIToolbarHideButtons(bool);
  property-get hwnd: I4;
  property-get BorderStyle: TBHBorderStyle;
  property-put BorderStyle(TBHBorderStyle);
  property-get RequiredHeight: I4;
  function Autosize;
  property-get BackColor: OLE_COLOR;
  property-put BackColor(OLE_COLOR);
  property-get HasBitmap: bool;
  property-put ImageSource(ECRBImageSourceTypes);
  property-put ImageResourceID(I4);
  property-put ImageResourcehInstance(I4);
  property-put ImageFile(BSTR);
  property-put ImagePicture(^Picture);
  property-putref ImagePicture(^Picture);
  property-get BackgroundBitmap: BSTR;
  property-put BackgroundBitmap(BSTR);
  function ClearPicture;
  function Capture(out ctlThis:^IDispatch);
  function ReleaseCaptures;

Class cToolbarHost;
GUID={4D0D234B-0ECE-4604-8C1E-FB95F27ED8F3};
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);
  function Refresh;
  property-get MDIToolbarMinWidth: I4;
  property-get MDIToolbar: bool;
  property-put MDIToolbar(bool);
  property-get MDIToolbarHideButtons: bool;
  property-put MDIToolbarHideButtons(bool);
  property-get hwnd: I4;
  property-get BorderStyle: TBHBorderStyle;
  property-put BorderStyle(TBHBorderStyle);
  property-get RequiredHeight: I4;
  function Autosize;
  property-get BackColor: OLE_COLOR;
  property-put BackColor(OLE_COLOR);
  property-get HasBitmap: bool;
  property-put ImageSource(ECRBImageSourceTypes);
  property-put ImageResourceID(I4);
  property-put ImageResourcehInstance(I4);
  property-put ImageFile(BSTR);
  property-put ImagePicture(^Picture);
  property-putref ImagePicture(^Picture);
  property-get BackgroundBitmap: BSTR;
  property-put BackgroundBitmap(BSTR);
  function ClearPicture;
  function Capture(out ctlThis:^IDispatch);
  function ReleaseCaptures;
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);
  property-get MsgResponse: EMsgResponse;
  property-put MsgResponse(EMsgResponse);
  function WindowProc(hwnd:I4; iMsg:I4; wParam:I4; lParam:I4): I4;
  function Resize;

Dispatch _TextEx;
GUID={C9F578B5-A710-494F-9217-160036DC89DB};
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);
  property-get Alignment: AlignmentConstants;
  property-put Alignment(AlignmentConstants);
  property-get BackColor: OLE_COLOR;
  property-put BackColor(OLE_COLOR);
  property-get Appearance: AppearanceStyle;
  property-put Appearance(AppearanceStyle);
  property-get BorderStyle: BorderStyles;
  property-put BorderStyle(BorderStyles);
  property-get DispFormat: BSTR;
  property-put DispFormat(BSTR);
  property-get UserCustomString: BSTR;
  property-put UserCustomString(BSTR);
  property-get DataMember: BSTR;
  property-put DataMember(BSTR);
  property-get Enabled: bool;
  property-put Enabled(bool);
  property-get ValidateValue: bool;
  property-put ValidateValue(bool);
  property-get Font: ^Font;
  property-putref Font(^Font);
  property-get ForeColor: OLE_COLOR;
  property-put ForeColor(OLE_COLOR);
  property-get HideSelection: bool;
  property-get LinkItem: BSTR;
  property-put LinkItem(BSTR);
  property-get LinkMode: I2;
  property-put LinkMode(I2);
  property-get LinkTimeout: I2;
  property-put LinkTimeout(I2);
  property-get NumDigitsAfterDecimal: I2;
  property-put NumDigitsAfterDecimal(I2);
  property-get GroupDigits: I2;
  property-put GroupDigits(I2);
  property-get LinkTopic: BSTR;
  property-put LinkTopic(BSTR);
  property-get Locked: bool;
  property-put Locked(bool);
  property-get MultiLine: bool;
  property-get MaxLength: I4;
  property-put MaxLength(I4);
  property-get ToolTipText: BSTR;
  property-put ToolTipText(BSTR);
  property-get MouseIcon: ^Picture;
  property-putref MouseIcon(^Picture);
  function SelectAll;
  property-get MousePointer: I2;
  property-put MousePointer(I2);
  property-get OLEDropMode: I2;
  property-put OLEDropMode(I2);
  property-get OLEDragMode: I2;
  property-put OLEDragMode(I2);
  function OLEDrag;
  property-get PasswordChar: BSTR;
  property-put PasswordChar(BSTR);
  property-get RightToLeft: bool;
  property-put RightToLeft(bool);
  property-get ScrollBars: I2;
  property-get SelLength: I4;
  property-put SelLength(I4);
  property-get SelStart: I4;
  property-put SelStart(I4);
  property-get SelText: BSTR;
  property-put SelText(BSTR);
  property-get Text: BSTR;
  property-put Text(BSTR);
  property-get AllowedKeys: AllowedKeys;
  property-put AllowedKeys(AllowedKeys);
  property-get AutoTab: bool;
  property-put AutoTab(bool);
  property-get SpecialEffect: enmSpecialEffect;
  property-put SpecialEffect(enmSpecialEffect);
  property-get SpecialEffectColor: OLE_COLOR;
  property-put SpecialEffectColor(OLE_COLOR);
  property-get LockedBackColor: OLE_COLOR;
  property-put LockedBackColor(OLE_COLOR);
  property-get AutoSelectAll: bool;
  property-put AutoSelectAll(bool);

Class TextEx;
GUID={5B2CE365-EEBE-4A57-9160-550DCC5C5B72};
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);
  property-get Alignment: AlignmentConstants;
  property-put Alignment(AlignmentConstants);
  property-get BackColor: OLE_COLOR;
  property-put BackColor(OLE_COLOR);
  property-get Appearance: AppearanceStyle;
  property-put Appearance(AppearanceStyle);
  property-get BorderStyle: BorderStyles;
  property-put BorderStyle(BorderStyles);
  property-get DispFormat: BSTR;
  property-put DispFormat(BSTR);
  property-get UserCustomString: BSTR;
  property-put UserCustomString(BSTR);
  property-get DataMember: BSTR;
  property-put DataMember(BSTR);
  property-get Enabled: bool;
  property-put Enabled(bool);
  property-get ValidateValue: bool;
  property-put ValidateValue(bool);
  property-get Font: ^Font;
  property-putref Font(^Font);
  property-get ForeColor: OLE_COLOR;
  property-put ForeColor(OLE_COLOR);
  property-get HideSelection: bool;
  property-get LinkItem: BSTR;
  property-put LinkItem(BSTR);
  property-get LinkMode: I2;
  property-put LinkMode(I2);
  property-get LinkTimeout: I2;
  property-put LinkTimeout(I2);
  property-get NumDigitsAfterDecimal: I2;
  property-put NumDigitsAfterDecimal(I2);
  property-get GroupDigits: I2;
  property-put GroupDigits(I2);
  property-get LinkTopic: BSTR;
  property-put LinkTopic(BSTR);
  property-get Locked: bool;
  property-put Locked(bool);
  property-get MultiLine: bool;
  property-get MaxLength: I4;
  property-put MaxLength(I4);
  property-get ToolTipText: BSTR;
  property-put ToolTipText(BSTR);
  property-get MouseIcon: ^Picture;
  property-putref MouseIcon(^Picture);
  function SelectAll;
  property-get MousePointer: I2;
  property-put MousePointer(I2);
  property-get OLEDropMode: I2;
  property-put OLEDropMode(I2);
  property-get OLEDragMode: I2;
  property-put OLEDragMode(I2);
  function OLEDrag;
  property-get PasswordChar: BSTR;
  property-put PasswordChar(BSTR);
  property-get RightToLeft: bool;
  property-put RightToLeft(bool);
  property-get ScrollBars: I2;
  property-get SelLength: I4;
  property-put SelLength(I4);
  property-get SelStart: I4;
  property-put SelStart(I4);
  property-get SelText: BSTR;
  property-put SelText(BSTR);
  property-get Text: BSTR;
  property-put Text(BSTR);
  property-get AllowedKeys: AllowedKeys;
  property-put AllowedKeys(AllowedKeys);
  property-get AutoTab: bool;
  property-put AutoTab(bool);
  property-get SpecialEffect: enmSpecialEffect;
  property-put SpecialEffect(enmSpecialEffect);
  property-get SpecialEffectColor: OLE_COLOR;
  property-put SpecialEffectColor(OLE_COLOR);
  property-get LockedBackColor: OLE_COLOR;
  property-put LockedBackColor(OLE_COLOR);
  property-get AutoSelectAll: bool;
  property-put AutoSelectAll(bool);
  function Error;
  function DblClick;
  function MouseDown(out Button:^I2; out Shift:^I2; out X:^R4; out y:^R4);
  function MouseMove(out Button:^I2; out Shift:^I2; out X:^R4; out y:^R4);
  function MouseUp(out Button:^I2; out Shift:^I2; out X:^R4; out y:^R4);
  function OLEDragDrop(out data:^^DataObject; out Effect:^I4; out Button:^I2; out Shift:^I2; out X:^R4; out y:^R4);
  function OLEDragOver(out data:^^DataObject; out Effect:^I4; out Button:^I2; out Shift:^I2; out X:^R4; out y:^R4; out State:^I2);
  function OLEGiveFeedback(out Effect:^I4; out DefaultCursors:^bool);
  function OLESetData(out data:^^DataObject; out DataFormat:^I2);
  function OLEStartDrag(out data:^^DataObject; out AllowedEffects:^I4);
  function OLECompleteDrag(out Effect:^I4);
  function Click;
  function Change;
  function KeyPress(out KeyAscii:^I2);

Dispatch _ImageList;
GUID={077B973D-2D17-4930-B62A-993AF9D27E11};
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);
  property-get SystemColourDepth: ColourDepth;
  function SwapOrCopyImage(vKeySrc:variant; vKeyDst:variant; eSwap:SwapTypes);
  function Create: bool;
  function Destroy;
  function DrawImage(vKey:variant; hdc:I4; xPixels:I2; yPixels:I2; bSelected:variant; bCut:variant; bDisabled:variant; oCutDitherColour:OLE_COLOR; hExternalHwnd:I4);
  property-get IconSizeX: I4;
  property-put IconSizeX(I4);
  property-get IconSizeY: I4;
  property-put IconSizeY(I4);
  property-get ColourDepth: ColourDepth;
  property-put ColourDepth(ColourDepth);
  property-get ImageCount: I2;
  function RemoveImage(vKey:variant);
  property-get ItemIndex(vKey:variant): I4;
  property-get ItemKey(iIndex:I4): variant;
  property-put ItemKey(iIndex:I4; variant);
  property-get KeyExists(sKey:BSTR): bool;
  property-get ItemPicture(vKey:variant): ^IPicture;
  property-get ItemCopyOfIcon(vKey:variant): I4;
  function Clear;
  function AddFromFile(sFileName:BSTR; iType:ImageTypes; vKey:variant; bMapSysColors:bool; lBackColor:OLE_COLOR; [vKeyAfter:variant]): I4;
  function AddFromResourceID(lID:I4; hInst:I4; iType:ImageTypes; vKey:variant; bMapSysColors:bool; lBackColor:OLE_COLOR; [vKeyAfter:variant]): I4;
  function AddFromHandle(hImage:I4; iType:ImageTypes; vKey:variant; lBackColor:OLE_COLOR; [vKeyAfter:variant]): bool;
  function AddFromPictureBox(hdc:I4; out pic:^IDispatch; vKey:variant; LeftPixels:I4; TopPixels:I4; lBackColor:OLE_COLOR): I4;
  property-get hwnd: I4;
  property-get ImagePictureStrip(vStartKey:variant; vEndKey:variant; oBackColor:OLE_COLOR): ^IPicture;
  function SaveToFile(sFile:BSTR): bool;
  function LoadFromFile(sFile:BSTR): bool;

Class ImageList;
GUID={43A6C37D-5DCA-4EF4-A373-906DC839FE71};
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);
  property-get SystemColourDepth: ColourDepth;
  function SwapOrCopyImage(vKeySrc:variant; vKeyDst:variant; eSwap:SwapTypes);
  function Create: bool;
  function Destroy;
  function DrawImage(vKey:variant; hdc:I4; xPixels:I2; yPixels:I2; bSelected:variant; bCut:variant; bDisabled:variant; oCutDitherColour:OLE_COLOR; hExternalHwnd:I4);
  property-get IconSizeX: I4;
  property-put IconSizeX(I4);
  property-get IconSizeY: I4;
  property-put IconSizeY(I4);
  property-get ColourDepth: ColourDepth;
  property-put ColourDepth(ColourDepth);
  property-get ImageCount: I2;
  function RemoveImage(vKey:variant);
  property-get ItemIndex(vKey:variant): I4;
  property-get ItemKey(iIndex:I4): variant;
  property-put ItemKey(iIndex:I4; variant);
  property-get KeyExists(sKey:BSTR): bool;
  property-get ItemPicture(vKey:variant): ^IPicture;
  property-get ItemCopyOfIcon(vKey:variant): I4;
  function Clear;
  function AddFromFile(sFileName:BSTR; iType:ImageTypes; vKey:variant; bMapSysColors:bool; lBackColor:OLE_COLOR; [vKeyAfter:variant]): I4;
  function AddFromResourceID(lID:I4; hInst:I4; iType:ImageTypes; vKey:variant; bMapSysColors:bool; lBackColor:OLE_COLOR; [vKeyAfter:variant]): I4;
  function AddFromHandle(hImage:I4; iType:ImageTypes; vKey:variant; lBackColor:OLE_COLOR; [vKeyAfter:variant]): bool;
  function AddFromPictureBox(hdc:I4; out pic:^IDispatch; vKey:variant; LeftPixels:I4; TopPixels:I4; lBackColor:OLE_COLOR): I4;
  property-get hwnd: I4;
  property-get ImagePictureStrip(vStartKey:variant; vEndKey:variant; oBackColor:OLE_COLOR): ^IPicture;
  function SaveToFile(sFile:BSTR): bool;
  function LoadFromFile(sFile:BSTR): bool;

Dispatch _ppgImages;
GUID={0A867FD9-3ADA-4F12-BEC0-74D238B1B59F};
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);

Class ppgImages;
GUID={788AB432-1A82-4A4D-9879-B470F64043C3};
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);

Dispatch _ppgControl;
GUID={B072E6DE-3676-4DEE-B464-2608EA1530EB};
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);

Class ppgControl;
GUID={00C20B76-B4F5-41EA-AF67-40C1F8FEC7F9};
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);

Dispatch _XPStyle;
GUID={7D0B04E0-AF04-4AEC-9481-4A97D9A29196};
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);
  function InitSubClassing;
  function InitIDESubClassing;
  function EndWinXPCSubClassing;
  property-get ColorScheme: SchemeWindowColors;
  property-put ColorScheme(SchemeWindowColors);
  property-get ComboBoxControl: bool;
  property-put ComboBoxControl(bool);
  property-get OptionControl: bool;
  property-put OptionControl(bool);
  property-get CheckControl: bool;
  property-put CheckControl(bool);
  property-get ButtonControl: bool;
  property-put ButtonControl(bool);
  property-get PictureControl: bool;
  property-put PictureControl(bool);
  property-get TextControl: bool;
  property-put TextControl(bool);
  property-get MsgBox_InputBox: bool;
  property-put MsgBox_InputBox(bool);
  property-get EngineStarted: bool;
  property-put EngineStarted(bool);
  property-get IDE: bool;
  property-put IDE(bool);

Class XPStyle;
GUID={FBE0D16B-F94C-4E4D-A7AF-30025D8B6333};
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);
  function InitSubClassing;
  function InitIDESubClassing;
  function EndWinXPCSubClassing;
  property-get ColorScheme: SchemeWindowColors;
  property-put ColorScheme(SchemeWindowColors);
  property-get ComboBoxControl: bool;
  property-put ComboBoxControl(bool);
  property-get OptionControl: bool;
  property-put OptionControl(bool);
  property-get CheckControl: bool;
  property-put CheckControl(bool);
  property-get ButtonControl: bool;
  property-put ButtonControl(bool);
  property-get PictureControl: bool;
  property-put PictureControl(bool);
  property-get TextControl: bool;
  property-put TextControl(bool);
  property-get MsgBox_InputBox: bool;
  property-put MsgBox_InputBox(bool);
  property-get EngineStarted: bool;
  property-put EngineStarted(bool);
  property-get IDE: bool;
  property-put IDE(bool);

Dispatch _PPageXP;
GUID={0CBC864A-B8F7-4A48-A78B-080E71A97431};
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);

Class PPageXP;
GUID={63D0C559-983A-419F-B7B5-3F0DC728C481};
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);

Dispatch _XPCalendar;
GUID={92534D2B-D663-43FC-8B69-9A37B42E6E3A};
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);
  function DrawControl(StatusType:I4);
  function RefreshControl;
  function UserControl_MouseOut(out Button:^I2; out Shift:^I2; out X:^R4; out y:^R4): variant;
  property-get Enabled: bool;
  property-put Enabled(bool);
  property-get ShowIcon: bool;
  property-put ShowIcon(bool);
  property-get Icon: ^Picture;
  property-putref Icon(^Picture);
  property-get IconSizeWidth: I4;
  property-put IconSizeWidth(I4);
  property-get IconSizeHeight: I4;
  property-put IconSizeHeight(I4);
  property-get BorderColor: OLE_COLOR;
  property-put BorderColor(OLE_COLOR);
  property-get BorderColorOver: OLE_COLOR;
  property-put BorderColorOver(OLE_COLOR);
  function XPCalendarShow(out Show:^I2);
  property-get CalendarSelectPicDrawMode: CalendarSelectPictureDrawModeType;
  property-put CalendarSelectPicDrawMode(CalendarSelectPictureDrawModeType);
  property-get CalendarSelectStyle: CalendarSelectModeStyle;
  property-put CalendarSelectStyle(CalendarSelectModeStyle);
  property-get CalendarSelectePicture: ^Picture;
  property-putref CalendarSelectePicture(^Picture);
  property-get CalendarBackNormal: OLE_COLOR;
  property-put CalendarBackNormal(OLE_COLOR);
  property-get CalendarBackSelected: OLE_COLOR;
  property-put CalendarBackSelected(OLE_COLOR);
  property-get CalendarFirstDayOfWeek: dtDaysOfTheWeek;
  property-put CalendarFirstDayOfWeek(dtDaysOfTheWeek);
  property-get CalendarClickBehivor: dtClickBehivor;
  property-put CalendarClickBehivor(dtClickBehivor);
  property-get CalendarOption: CalendarDateTimeOption;
  property-put CalendarOption(CalendarDateTimeOption);
  property-get CalendarGridWidth: I2;
  property-put CalendarGridWidth(I2);
  property-get CalendarGridHeight: I2;
  property-put CalendarGridHeight(I2);
  property-get HoverColor: OLE_COLOR;
  property-put HoverColor(OLE_COLOR);
  property-get Font: ^Font;
  property-putref Font(^Font);
  property-get TextMaxLength: I2;
  property-put TextMaxLength(I2);
  property-get Text_Enabled: bool;
  property-put Text_Enabled(bool);
  property-get Text_Locked: bool;
  property-put Text_Locked(bool);
  property-get DropListEnabled: bool;
  property-put DropListEnabled(bool);
  property-get TodayFont: ^Font;
  property-putref TodayFont(^Font);
  property-get TodayFontBold: bool;
  property-get TodayFontName: BSTR;
  property-get TodayFontSize: I4;
  property-get TodayPicture: ^Picture;
  property-putref TodayPicture(^Picture);
  property-get DatePosn: DatePositionType;
  property-put DatePosn(DatePositionType);
  property-get GridLineColor: OLE_COLOR;
  property-put GridLineColor(OLE_COLOR);
  property-get GridLine: GridLineType;
  property-put GridLine(GridLineType);
  property-get CustomDateFormat: BSTR;
  property-put CustomDateFormat(BSTR);
  property-get CalendarDateFormat: dtFormatConstants;
  property-put CalendarDateFormat(dtFormatConstants);
  property-get AllowNull: bool;
  property-put AllowNull(bool);
  property-get Seperator: BSTR;
  property-put Seperator(BSTR);
  property-get PlaceHolder: BSTR;
  property-put PlaceHolder(BSTR);
  property-get MaxDate: date;
  property-put MaxDate(date);
  property-get MinDate: date;
  property-put MinDate(date);
  property-get Value: variant;
  property-put Value(variant);
  property-get MousePointer: MousePointerConstants;
  property-put MousePointer(MousePointerConstants);
  property-get MouseIcon: ^Picture;
  property-putref MouseIcon(^Picture);
  property-get RightToLeft: bool;
  property-put RightToLeft(bool);
  function IsNull(out DateIn:^BSTR): bool;
  function IsMonth(out iMonth:^I2): bool;
  function IsLeapYear(out sYear:^I2): bool;

Class XPCalendar;
GUID={A5685533-3C12-4907-8B0C-224F7C294ADB};
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);
  function DrawControl(StatusType:I4);
  function RefreshControl;
  function UserControl_MouseOut(out Button:^I2; out Shift:^I2; out X:^R4; out y:^R4): variant;
  property-get Enabled: bool;
  property-put Enabled(bool);
  property-get ShowIcon: bool;
  property-put ShowIcon(bool);
  property-get Icon: ^Picture;
  property-putref Icon(^Picture);
  property-get IconSizeWidth: I4;
  property-put IconSizeWidth(I4);
  property-get IconSizeHeight: I4;
  property-put IconSizeHeight(I4);
  property-get BorderColor: OLE_COLOR;
  property-put BorderColor(OLE_COLOR);
  property-get BorderColorOver: OLE_COLOR;
  property-put BorderColorOver(OLE_COLOR);
  function XPCalendarShow(out Show:^I2);
  property-get CalendarSelectPicDrawMode: CalendarSelectPictureDrawModeType;
  property-put CalendarSelectPicDrawMode(CalendarSelectPictureDrawModeType);
  property-get CalendarSelectStyle: CalendarSelectModeStyle;
  property-put CalendarSelectStyle(CalendarSelectModeStyle);
  property-get CalendarSelectePicture: ^Picture;
  property-putref CalendarSelectePicture(^Picture);
  property-get CalendarBackNormal: OLE_COLOR;
  property-put CalendarBackNormal(OLE_COLOR);
  property-get CalendarBackSelected: OLE_COLOR;
  property-put CalendarBackSelected(OLE_COLOR);
  property-get CalendarFirstDayOfWeek: dtDaysOfTheWeek;
  property-put CalendarFirstDayOfWeek(dtDaysOfTheWeek);
  property-get CalendarClickBehivor: dtClickBehivor;
  property-put CalendarClickBehivor(dtClickBehivor);
  property-get CalendarOption: CalendarDateTimeOption;
  property-put CalendarOption(CalendarDateTimeOption);
  property-get CalendarGridWidth: I2;
  property-put CalendarGridWidth(I2);
  property-get CalendarGridHeight: I2;
  property-put CalendarGridHeight(I2);
  property-get HoverColor: OLE_COLOR;
  property-put HoverColor(OLE_COLOR);
  property-get Font: ^Font;
  property-putref Font(^Font);
  property-get TextMaxLength: I2;
  property-put TextMaxLength(I2);
  property-get Text_Enabled: bool;
  property-put Text_Enabled(bool);
  property-get Text_Locked: bool;
  property-put Text_Locked(bool);
  property-get DropListEnabled: bool;
  property-put DropListEnabled(bool);
  property-get TodayFont: ^Font;
  property-putref TodayFont(^Font);
  property-get TodayFontBold: bool;
  property-get TodayFontName: BSTR;
  property-get TodayFontSize: I4;
  property-get TodayPicture: ^Picture;
  property-putref TodayPicture(^Picture);
  property-get DatePosn: DatePositionType;
  property-put DatePosn(DatePositionType);
  property-get GridLineColor: OLE_COLOR;
  property-put GridLineColor(OLE_COLOR);
  property-get GridLine: GridLineType;
  property-put GridLine(GridLineType);
  property-get CustomDateFormat: BSTR;
  property-put CustomDateFormat(BSTR);
  property-get CalendarDateFormat: dtFormatConstants;
  property-put CalendarDateFormat(dtFormatConstants);
  property-get AllowNull: bool;
  property-put AllowNull(bool);
  property-get Seperator: BSTR;
  property-put Seperator(BSTR);
  property-get PlaceHolder: BSTR;
  property-put PlaceHolder(BSTR);
  property-get MaxDate: date;
  property-put MaxDate(date);
  property-get MinDate: date;
  property-put MinDate(date);
  property-get Value: variant;
  property-put Value(variant);
  property-get MousePointer: MousePointerConstants;
  property-put MousePointer(MousePointerConstants);
  property-get MouseIcon: ^Picture;
  property-putref MouseIcon(^Picture);
  property-get RightToLeft: bool;
  property-put RightToLeft(bool);
  function IsNull(out DateIn:^BSTR): bool;
  function IsMonth(out iMonth:^I2): bool;
  function IsLeapYear(out sYear:^I2): bool;
  function Click;
  function MouseOver;
  function MouseOut(out Button:^I2; out Shift:^I2; out X:^R4; out y:^R4);
  function MouseUp(out Button:^I2; out Shift:^I2; out X:^R4; out y:^R4);
  function KeyDown(out KeyCode:^I2; out Shift:^I2);
  function KeyPress(out KeyAscii:^I2);
  function KeyUp(out KeyCode:^I2; out Shift:^I2);
  function MouseDown(out Button:^I2; out Shift:^I2; out X:^R4; out y:^R4);
  function MouseMove(out Button:^I2; out Shift:^I2; out X:^R4; out y:^R4);
  function Change;
  function CalendarChoose(out Text:^BSTR);

Dispatch _ppgXTab;
GUID={77F9B1D4-5A58-47A5-9158-7B85C1047F58};
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);

Class ppgXTab;
GUID={7610D9CD-4340-47D0-B834-F0280BD06DF2};
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);

Dispatch _XPTab;
GUID={59BD1222-C4A8-4928-9570-23600D5AFDC8};
  function QueryInterface(riid:^GUID; out ppvObj:^^void);
  function AddRef: UI4;
  function Release: UI4;
  function GetTypeInfoCount(out pctinfo:^UINT);
  function GetTypeInfo(itinfo:UINT; lcid:UI4; out pptinfo:^^void);
  function GetIDsOfNames(riid:^GUID; rgszNames:^^I1; cNames:UINT; lcid:UI4; out rgdispid:^I4);
  function Invoke(dispidMember:I4; riid:^GUID; lcid:UI4; wFlags:UI2; pdispparams:^DISPPARAMS; out pvarResult:^variant; out pexcepinfo:^EXCEPINFO; out puArgErr:^UINT);
  property-get LastActiveTab: I2;
  property-get Handle: I4;
  property-get DC: I4;
  property-get Enabled: bool;
  property-put Enabled(^bool);
  property-get TabCount: I2;
  property-put TabCount(^I2);
  property-get ActiveTab: I2;
  property-put ActiveTab(^I2);
  property-get TabStyle: Style;
  property-put TabStyle(^Style);
  property-get TabTheme: Theme;
  property-put TabTheme(^Theme);
  property-get ActiveTabHeight: I2;
  property-put ActiveTabHeight(^I2);
  property-get InActiveTabHeight: I2;
  property-put InActiveTabHeight(^I2);
  property-get ShowFocusRect: bool;
  property-put ShowFocusRect(^bool);
  property-get ActiveTabBackStartColor: OLE_COLOR;
  property-put ActiveTabBackStartColor(^OLE_COLOR);
  property-get ActiveTabBackEndColor: OLE_COLOR;
  property-put ActiveTabBackEndColor(^OLE_COLOR);
  property-get InActiveTabBackStartColor: OLE_COLOR;
  property-put InActiveTabBackStartColor(^OLE_COLOR);
  property-get InActiveTabBackEndColor: OLE_COLOR;
  property-put InActiveTabBackEndColor(^OLE_COLOR);
  property-get ActiveTabForeColor: OLE_COLOR;
  property-put ActiveTabForeColor(^OLE_COLOR);
  property-get InActiveTabForeColor: OLE_COLOR;
  property-put InActiveTabForeColor(^OLE_COLOR);
  property-get ActiveTabFont: ^Font;
  property-putref ActiveTabFont(^^Font);
  property-get InActiveTabFont: ^Font;
  property-putref InActiveTabFont(^^Font);
  property-get OuterBorderColor: OLE_COLOR;
  property-put OuterBorderColor(^OLE_COLOR);
  property-get TopLeftInnerBorderColor: OLE_COLOR;
  property-put TopLeftInnerBorderColor(^OLE_COLOR);
  property-get BottomRightInnerBorderColor: OLE_COLOR;
  property-put BottomRightInnerBorderColor(^OLE_COLOR);
  property-get TabStripBackColor: OLE_COLOR;
  property-put TabStripBackColor(^OLE_COLOR);
  property-get DisabledTabBackColor: OLE_COLOR;
  property-put DisabledTabBackColor(^OLE_COLOR);
  property-get DisabledTabForeColor: OLE_COLOR;
  property-put DisabledTabForeColor(^OLE_COLOR);
  property-get TabCaption(out iTabIndex:^I2): BSTR;
  property-put TabCaption(out iTabIndex:^I2; ^BSTR);
  property-get TabPicture(out iTabIndex:^I2): ^Picture;
  property-putref TabPicture(out iTabIndex:^I2; ^^Picture);
  property-get TabEnabled(out iTabIndex:^I2): bool;
  property-put TabEnabled(out iTabIndex:^I2; ^bool);
  property-get HoverColorInverted: OLE_COLOR;
  property-put HoverColorInverted(^OLE_COLOR);
  property-get XRadius: I2;
  property-put XRadius(^I2);
  property-get YRadius: I2;
  property-put YRadius(^I2);
  property-get PictureAlign: PictureAlign;
  property-put PictureAlign(^PictureAlign);
  property-get PictureSize: PictureSize;
  property-put PictureSize(^PictureSize);
  property-get PictureMaskColor: OLE_COLOR;
  property-put PictureMaskColor(^OLE_COLOR);
  property-get UseMaskColor: bool;
  property-put UseMaskColor(^bool);
  function CopyTabImagesFromImageList(out oIml:^IDispatch);
  function ResetAllColors;

Class XPTab;
GUID={6CCD686E-7AAE-