RbBFBlokProjPSIVStrn2007.03 ACnmStrnAChpStrnACsvStrnVer1Strn1 Ver2Strn0 Ver3Strn0 RelsStrn0 NnRlStrn0 RegnStrnSVerStrnLVerStrnIVerStrnaiviInt DVewInt ?prTpInt DLanInt CLanInt DEncInt BflgInt IconGrupEndGInt MacCStrnBMacStrnMy Application (Classic)BCarStrnMy Application BCMOStrnMy Application BunIStrnBSizInt @BMSzInt BSzSStrn4096BMSSStrn2048MDIcStrnBWinStrnMy Application.exe BMDIInt WcmNStrnWpNmStrnWiNmStrnBL86Strn MyApplication PadnPadn********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObjzNameStrnApp ContInt paswStrnbClsInt SuprStrn Application flagInt bNtrInt bApOInt CompStrnPDefGrup$nameStrnMenuBar PValInt SaOEndGInt VwBhGrupEndGInt CnstGrupEncoInt nameStrnkFileQuitShortcut typeInt defnStrnflagInt CInsGrup0pltfInt langInt defnStrnCmd+Q EndGInt CInsGrup0pltfInt langInt defnStrnCtrl+Q EndGInt EndGInt CnstGrupEncoInt nameStrn kFileQuit typeInt defnStrn&Quit flagInt CInsGrup0pltfInt langInt defnStrnE&xit EndGInt EndGInt CnstGrup EncoInt nameStrn kEditClear typeInt defnStrn&Delete flagInt CInsGrup0 pltfInt langInt defnStrn&Delete EndGInt CInsGrup0 pltfInt langInt defnStrn&Delete EndGInt EndGInt PadnPadnT************************************************************************************BlokpVew?$NameStrnWindow1 ContInt paswStrnbClsInt SuprStrnWindow flagInt bNtrInt CompStrnPDefGrup0 nameStrnMenuBar PValStrn 1398886399 EndGInt PDefGrup( nameStrn MacProcID PValInt EndGInt PDefGrup4nameStrn BalloonHelp EncoInt PValStrnEndGInt PDefGrup0nameStrnMinimizeButton PValStrnTrueEndGInt PDefGrup4nameStrnMaximizeButton PValStrnFalse EndGInt PDefGrup,nameStrn LiveResize PValStrnTrueEndGInt PDefGrup0nameStrn Resizeable PValStrnFalse EndGInt PDefGrup,nameStrn CloseButton PValStrnTrueEndGInt PDefGrup0nameStrnMenuBarVisible PValStrnTrueEndGInt PDefGrup0nameStrn FullScreen PValStrnFalse EndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrup8nameStrnTitle EncoInt PValStrnUntitledEndGInt PDefGrup$nameStrnBackdropPValStrnEndGInt PDefGrup(nameStrn BackColor PValInt EndGInt PDefGrup0nameStrn HasBackColorPValStrnFalse EndGInt PDefGrup0nameStrn Composite PValStrnFalse EndGInt PDefGrup$nameStrnFrame PValInt EndGInt PDefGrup(nameStrn MaxHeight PValInt }EndGInt PDefGrup$nameStrnMaxWidthPValInt }EndGInt PDefGrup(nameStrn MinHeight PValInt @EndGInt PDefGrup$ nameStrnMinWidthPValInt @EndGInt PDefGrup$!nameStrnHeight PValInt ,EndGInt !PDefGrup$"nameStrnWidth PValInt ,EndGInt "PDefGrup(#nameStrn Placement PValInt EndGInt #VwBhGrup$VwPrGrupD%NameStrnNameVsblInt PrGpStrnID CPifStrnWindow EndGInt %VwPrGrupL&NameStrn Interfaces VsblInt PrGpStrnID CPifStrnWindow EndGInt &VwPrGrupH'NameStrnSuper VsblInt PrGpStrnID CPifStrnWindow EndGInt 'VwPrGrup0(NameStrn Placement VsblInt PrGpStrnPositionPValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGrup)defnStrn 0 - Default defnStrn1 - Parent Window defnStrn2 - Main Screen defnStrn3 - Parent Window ScreendefnStrn 4 - Stagger EndGInt )EndGInt (VwPrGrupp*NameStrnWidth VsblInt PrGpStrnPositionPValStrn300 typeStrnInteger CPifStrnWindow EndGInt *VwPrGrupp+NameStrnHeight VsblInt PrGpStrnPositionPValStrn300 typeStrnInteger CPifStrnWindow EndGInt +VwPrGrupp,NameStrnMinWidthVsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt ,VwPrGrupt-NameStrn MinHeight VsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt -VwPrGrupt.NameStrnMaxWidthVsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt .VwPrGrupx/NameStrn MaxHeight VsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt /VwPrGrup 0NameStrnFrame VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGrupp1defnStrn 0 - DocumentdefnStrn1 - Movable Modal defnStrn2 - Modal DialogdefnStrn3 - Floating Window defnStrn 4 - Plain Box defnStrn5 - Shadowed BoxdefnStrn6 - Rounded Window defnStrn7 - Global Floating Window defnStrn8 - Sheet WindowdefnStrn9 - Metal WindowdefnStrn10 - Drawer Window defnStrn11 - Modeless DialogEndGInt 1EndGInt 0VwPrGrup|2NameStrn Composite VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt 2VwPrGrup|3NameStrn HasBackColorVsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt 3VwPrGrup|4NameStrn BackColor VsblInt PrGpStrn Appearance PValStrn&hFFFFFFtypeStrnColor CPifStrnWindow EndGInt 4VwPrGrupx5NameStrnBackdropVsblInt PrGpStrn Appearance typeStrnPicture vbETStrnPicture CPifStrnWindow EndGInt 5VwPrGrupx6NameStrnTitle VsblInt PrGpStrn Appearance PValStrnUntitledtypeStrnString CPifStrnWindow EndGInt 6VwPrGrupt7NameStrnVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt 7VwPrGrup|8NameStrn FullScreen VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt 8VwPrGrup|9NameStrnMenuBarVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt 9VwPrGrupx:NameStrn CloseButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt :VwPrGrup|;NameStrn Resizeable VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt ;VwPrGrupxNameStrnMinimizeButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt >VwPrGruph?NameStrn BalloonHelp VsblInt PrGpStrn Appearance typeStrnString CPifStrnWindow EndGInt ?VwPrGrupx@NameStrn MacProcID VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger CPifStrnWindow EndGInt @VwPrGrupxANameStrnMenuBar VsblInt PrGpStrn Appearance typeStrnMenuBar vbETStrnMenuBar CPifStrnWindow EndGInt AEndGInt $CBhvGrupBSuprStrn PushButton HInsGrupCnameStrnAction CompStrnVsblInt sorcGrupDEncoInt srclStrn Sub Action()srclStrndim a as new ClassA srclStrndim b as new ClassB srclStrnsrclStrn b.Test( a ) srclStrnEnd Sub EndGInt DEndGInt CEndGInt BCtrlGrupEcclsStrn PushButton nameStrn PushButton PDefGrup8FnameStrn InitialParent EncoInt PValStrnEndGInt FPDefGrup(GnameStrn Underline PValStrnEndGInt GPDefGrup$HnameStrnItalic PValStrnEndGInt HPDefGrup InameStrnBoldPValStrnEndGInt IPDefGrup$JnameStrnTextSizePValInt EndGInt JPDefGrup8KnameStrnTextFontEncoInt PValStrnSystem EndGInt KPDefGrup0LnameStrnAutoDeactivate PValStrnTrueEndGInt LPDefGrup0MnameStrnHelpTag EncoInt PValStrnEndGInt MPDefGrup(NnameStrnVisible PValStrnTrueEndGInt NPDefGrup(OnameStrnEnabled PValStrnTrueEndGInt OPDefGrup$PnameStrnCancel PValStrnEndGInt PPDefGrup$QnameStrnDefault PValStrnEndGInt QPDefGrup8RnameStrnCaption EncoInt PValStrnUntitledEndGInt RPDefGrup,SnameStrn TabPanelIndex PValInt EndGInt SPDefGrup(TnameStrn LockBottom PValStrnEndGInt TPDefGrup(UnameStrn LockRight PValStrnEndGInt UPDefGrup$VnameStrnLockTop PValStrnEndGInt VPDefGrup$WnameStrnLockLeftPValStrnEndGInt WPDefGrup$XnameStrnHeight PValInt EndGInt XPDefGrup$YnameStrnWidth PValInt PEndGInt YPDefGrup ZnameStrnTop PValInt EndGInt ZPDefGrup [nameStrnLeftPValInt EndGInt [PDefGrup(\nameStrn ControlOrderPValInt EndGInt \PDefGrup<]nameStrnSuper EncoInt PValStrn PushButton EndGInt ]PDefGrup$^nameStrnIndex PValInt EndGInt ^PDefGrup8_nameStrnNameEncoInt PValStrn PushButton1 EndGInt _CBixInt EndGInt EPadnPadn************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpMnuSaO NameStrnMenuBar1ContInt paswStrnMItmGrupp`spmuInt nameStrnFileMenutextStrn&File indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrupaspmuInt nameStrnFileQuittextStrn#App.kFileQuit indxInt scutStrn#App.kFileQuitShortcut MiSKStrn#App.kFileQuitShortcut maEnInt EncoInt flagInt SuprStrn QuitMenuItemEndGInt aEndGInt `MItmGrup<bspmuInt nameStrnEditMenutextStrn&Edit indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrupcspmuInt nameStrnEditUndotextStrn&Undo indxInt scutStrnCmd+Z MiSKStrnZ MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt cMItmGrup|dspmuInt nameStrntextStrn- indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt dMItmGrupespmuInt nameStrnEditCut textStrnCu&tindxInt scutStrnCmd+X MiSKStrnX MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt eMItmGrupfspmuInt nameStrnEditCopytextStrn&Copy indxInt scutStrnCmd+C MiSKStrnC MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt fMItmGrupgspmuInt nameStrn EditPaste textStrn&Paste indxInt scutStrnCmd+V MiSKStrnV MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt gMItmGruphspmuInt nameStrn EditClear textStrn#App.kEditClear indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt hMItmGrup|ispmuInt nameStrntextStrn- indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt iMItmGrupjspmuInt nameStrn EditSelectAll textStrn Select &All indxInt scutStrnCmd+A MiSKStrnA MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt jEndGInt bPadnPadn************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObjH?NameStrnModule1 ContInt paswStrnbClsInt flagInt bNtrInt CompStrnVwBhGrupkVwPrGrupDlNameStrnNameVsblInt PrGpStrnID CPifStrnObject EndGInt lVwPrGrup`mNameStrnIndex VsblInt PrGpStrnID PValStrn -2147483648 CPifStrnObject EndGInt mVwPrGrupHnNameStrnSuper VsblInt PrGpStrnID CPifStrnObject EndGInt nVwPrGrupXoNameStrnLeftVsblInt PrGpStrnPositionPValStrn0 CPifStrnObject EndGInt oVwPrGrupXpNameStrnTop VsblInt PrGpStrnPositionPValStrn0 CPifStrnObject EndGInt pEndGInt kPadnPadnH****************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObjy~NameStrnClassA ContInt H?paswStrnbClsInt IntrStrn FriendFace flagInt bNtrInt CompStrnMethGrup$qnameStrnWahoo CompStrnVsblInt sorcGruprEncoInt srclStrnFunction Wahoo() As String srclStrn0return "This is a private method! Yay friends!"srclStrn End FunctionEndGInt rEncoInt AlasStrnflagInt !shrdInt parmStrnrsltStrnString EndGInt qVwBhGrupsVwPrGrupDtNameStrnNameVsblInt PrGpStrnID CPifStrnObject EndGInt tVwPrGrup`uNameStrnIndex VsblInt PrGpStrnID PValStrn -2147483648 CPifStrnObject EndGInt uVwPrGrupHvNameStrnSuper VsblInt PrGpStrnID CPifStrnObject EndGInt vVwPrGrupXwNameStrnLeftVsblInt PrGpStrnPositionPValStrn0 CPifStrnObject EndGInt wVwPrGrupXxNameStrnTop VsblInt PrGpStrnPositionPValStrn0 CPifStrnObject EndGInt xEndGInt sPadnPadn****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObjkџNameStrnClassB ContInt H?paswStrnbClsInt flagInt bNtrInt CompStrnMethGrupynameStrnTestCompStrnVsblInt sorcGrupzEncoInt srclStrnSub Test(a as ClassA) srclStrnA// You cannot call a.Wahoo because it's private, but you can call srclStrn*// FriendFace.Wahoo because that's public. srclStrnsrclStrnMsgBox FriendFace( a ).Wahoo srclStrnEnd Sub EndGInt zEncoInt AlasStrnflagInt shrdInt parmStrn a as ClassA rsltStrnEndGInt yVwBhGrup{VwPrGrupD|NameStrnNameVsblInt PrGpStrnID CPifStrnObject EndGInt |VwPrGrup`}NameStrnIndex VsblInt PrGpStrnID PValStrn -2147483648 CPifStrnObject EndGInt }VwPrGrupH~NameStrnSuper VsblInt PrGpStrnID CPifStrnObject EndGInt ~VwPrGrupXNameStrnLeftVsblInt PrGpStrnPositionPValStrn0 CPifStrnObject EndGInt VwPrGrupXNameStrnTop VsblInt PrGpStrnPositionPValStrn0 CPifStrnObject EndGInt EndGInt {PadnPadn************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObjbNameStrn FriendFace ContInt H?paswStrnbClsInt flagInt bNtrInt CompStrnMethGrupnameStrnWahoo CompStrnVsblInt sorcGrup\EncoInt srclStrnFunction Wahoo() As String srclStrnsrclStrn End FunctionEndGInt EncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnString EndGInt VwBhGrupVwPrGrupDNameStrnNameVsblInt PrGpStrnID CPifStrnObject EndGInt VwPrGrup`NameStrnIndex VsblInt PrGpStrnID PValStrn -2147483648 CPifStrnObject EndGInt VwPrGrupHNameStrnSuper VsblInt PrGpStrnID CPifStrnObject EndGInt VwPrGrupXNameStrnLeftVsblInt PrGpStrnPositionPValStrn0 CPifStrnObject EndGInt VwPrGrupXNameStrnTop VsblInt PrGpStrnPositionPValStrn0 CPifStrnObject EndGInt EndGInt PadnPadn8********************************************************BlokpUIsWnStGrup@OTabGrupContInt eSptInt EndGInt OTabGrupdContInt ?LSptInt RSptInt ScrXInt ScrYInt lstHInt @lstVInt @CtrlInt EndGInt OTabGrup4ContInt ?AltEInt LSptInt ciIDInt EndGInt LsLcStrnWindow1.PushButton1.Action rEdtRectEndGInt PadnPadn|************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************EOF!