RbBFBlokProjPSIVStrn2009.02 ACnmStrnAChpStrnACsvStrnVer1Strn1 Ver2Strn0 Ver3Strn0 RelsStrn0 NnRlStrn0 RegnStrnSVerStrnLVerStrnIVerStrnaiviInt DVewInt Ն8prTpInt DLanInt CLanInt DEncInt BflgInt @IconGrupEndGInt MacCStrnBCarStrnMy Application BCMOStrnMy Application BunIStrnBSizInt @BMSzInt BSzSStrn4096BMSSStrn2048MDIcStrnBWinStrnMy Application.exe BMDIInt WcmNStrnWpNmStrnWiNmStrnBL86Strn MyApplication DgCLStrnPadnPadn********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObjNameStrnApp ContInt paswStrnbClsInt SuprStrn Application flagInt bNtrInt bApOInt CompStrnPDefGrup$nameStrnMenuBar PValInt ,_ EndGInt VwBhGrupEndGInt CnstGrupnameStrnkFileQuitShortcut CompStrnVsblInt EncoInt nameStrnkFileQuitShortcut typeInt defnStrnflagInt CInsGrup0pltfInt langInt defnStrnCmd+Q EndGInt CInsGrup0pltfInt langInt defnStrnCtrl+Q EndGInt EndGInt CnstGrupnameStrn kFileQuit CompStrnVsblInt EncoInt nameStrn kFileQuit typeInt defnStrn&Quit flagInt CInsGrup0pltfInt langInt defnStrnE&xit EndGInt EndGInt CnstGrupnameStrn kEditClear CompStrnVsblInt EncoInt nameStrn kEditClear typeInt defnStrn&Delete flagInt CInsGrup0pltfInt langInt defnStrn&Delete EndGInt CInsGrup0pltfInt langInt defnStrn&Delete EndGInt EndGInt PadnPadn********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpVewՆ8HNameStrnWindow1 ContInt paswStrnbClsInt SuprStrnWindow flagInt bNtrInt CompStrnPDefGrup<nameStrnImplicitInstanceEncoInt PValStrnTrueEndGInt PDefGrup0nameStrnMenuBar PValStrn 744426415 EndGInt PDefGrup(nameStrn MacProcID PValInt EndGInt PDefGrup0nameStrnMinimizeButton PValStrnTrueEndGInt PDefGrup4nameStrnMaximizeButton PValStrnFalse EndGInt PDefGrup,nameStrn LiveResize PValStrnTrueEndGInt PDefGrup,nameStrn Resizeable PValStrnTrueEndGInt 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 XEndGInt PDefGrup(nameStrn Placement PValInt EndGInt VwBhGrupVwPrGrupDNameStrnNameVsblInt PrGpStrnID CPifStrnWindow EndGInt VwPrGrupLNameStrn 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 PrGpStrnPositionPValStrn600 typeStrnInteger CPifStrnWindow EndGInt  VwPrGrupp NameStrnHeight VsblInt PrGpStrnPositionPValStrn400 typeStrnInteger CPifStrnWindow EndGInt  VwPrGruppNameStrnMinWidthVsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt VwPrGruptNameStrn MinHeight VsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt VwPrGruptNameStrnMaxWidthVsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt VwPrGrupxNameStrn MaxHeight VsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt VwPrGrup NameStrnFrame VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGruppdefnStrn 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 EndGInt VwPrGrup|NameStrn Composite VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt VwPrGrup|NameStrn HasBackColorVsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt VwPrGrup|NameStrn BackColor VsblInt PrGpStrn Appearance PValStrn&hFFFFFFtypeStrnColor CPifStrnWindow EndGInt VwPrGrupxNameStrnBackdropVsblInt PrGpStrn Appearance typeStrnPicture vbETStrnPicture CPifStrnWindow EndGInt VwPrGrupxNameStrnTitle VsblInt PrGpStrn Appearance PValStrnUntitledtypeStrnString CPifStrnWindow EndGInt VwPrGruptNameStrnVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt VwPrGrup|NameStrn FullScreen VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt VwPrGrup|NameStrnMenuBarVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt VwPrGrupxNameStrn CloseButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt VwPrGrupxNameStrn Resizeable VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt VwPrGrupxNameStrn LiveResize VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt VwPrGrupNameStrnMaximizeButton VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt VwPrGrup| NameStrnMinimizeButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt  VwPrGrupx!NameStrn MacProcID VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger CPifStrnWindow EndGInt !VwPrGrupx"NameStrnMenuBar VsblInt PrGpStrn Appearance typeStrnMenuBar vbETStrnMenuBar CPifStrnWindow EndGInt "VwPrGrup|#NameStrnImplicitInstanceVsblInt PrGpStrn Appearance PValStrnTruevbETStrnBoolean CPifStrnWindow EndGInt #EndGInt CBhvGrup$SuprStrn PushButton HInsGrupT%nameStrnAction CompStrnVsblInt sorcGrup &EncoInt srclStrn Sub Action()srclStrn0'the progress bar will not fill up incrementallysrclStrndim intCounter As Integer srclStrnsrclStrnStaticText1.Visible = True srclStrnsrclStrnfor intCounter = 0 to 10000 srclStrn pbrUnthreaded.Value = intCountersrclStrnX'this will increment the progress bar but the rest of the interface remains unresponsivesrclStrnpbrUnthreaded.Refresh srclStrnNextsrclStrnsrclStrnStaticText1.Visible = False srclStrnsrclStrnEnd Sub EndGInt &EndGInt %EndGInt $CBhvGrup('SuprStrn PushButton HInsGrup(nameStrnAction CompStrnVsblInt sorcGrup)EncoInt srclStrn Sub Action()srclStrnStaticText1.Visible = True srclStrnthdProgressBar.Run srclStrnStaticText1.Visible = False srclStrnEnd Sub EndGInt )EndGInt (EndGInt 'CBhvGrup*SuprStrn ProgressBar EndGInt *CBhvGrup+SuprStrn ProgressBar EndGInt +CBhvGrupH,SuprStrnThread HInsGrup-nameStrnRun CompStrnVsblInt sorcGrup.EncoInt srclStrn Sub Run() srclStrn<'everything that happens in the thread gets called from heresrclStrndim intCounter As Integer srclStrnsrclStrnpbUnthreaded.Enabled = FalsesrclStrnpbThreaded.Enabled = False srclStrnsrclStrnfor intCounter = 0 to 10000 srclStrnpbrThreaded.Value = intCounter srclStrnNextsrclStrnsrclStrnpbUnthreaded.Enabled = True srclStrnpbThreaded.Enabled = True srclStrnEnd Sub EndGInt .EndGInt -EndGInt ,CBhvGrup/SuprStrn StaticText EndGInt /CtrlGrupx0cclsStrn PushButton nameStrn PushButton PDefGrup81nameStrn InitialParent EncoInt PValStrnEndGInt 1PDefGrup(2nameStrn Underline PValStrnEndGInt 2PDefGrup$3nameStrnItalic PValStrnEndGInt 3PDefGrup 4nameStrnBoldPValStrnEndGInt 4PDefGrup$5nameStrnTextSizePValInt EndGInt 5PDefGrup86nameStrnTextFontEncoInt PValStrnSystem EndGInt 6PDefGrup07nameStrnAutoDeactivate PValStrnTrueEndGInt 7PDefGrup08nameStrnHelpTag EncoInt PValStrnEndGInt 8PDefGrup(9nameStrnVisible PValStrnTrueEndGInt 9PDefGrup(:nameStrnEnabled PValStrnTrueEndGInt :PDefGrup$;nameStrnCancel PValStrnEndGInt ;PDefGrup$nameStrnTabStop PValStrnTrueEndGInt >PDefGrup$?nameStrnTabIndexPValInt EndGInt ?PDefGrup,@nameStrn TabPanelIndex PValInt EndGInt @PDefGrup(AnameStrn LockBottom PValStrnEndGInt APDefGrup(BnameStrn LockRight PValStrnEndGInt BPDefGrup$CnameStrnLockTop PValStrnEndGInt CPDefGrup$DnameStrnLockLeftPValStrnEndGInt DPDefGrup$EnameStrnHeight PValInt EndGInt EPDefGrup$FnameStrnWidth PValInt EndGInt FPDefGrup GnameStrnTop PValInt EndGInt GPDefGrup HnameStrnLeftPValInt +EndGInt HPDefGrup(InameStrnScope PValStrn0 EndGInt IPDefGrup<JnameStrnSuper EncoInt PValStrn PushButton EndGInt JPDefGrup$KnameStrnIndex PValInt EndGInt KPDefGrup8LnameStrnNameEncoInt PValStrn pbUnthreadedEndGInt LCBixInt iLckInt EndGInt 0CtrlGruptMcclsStrn PushButton nameStrn PushButton PDefGrup8NnameStrn InitialParent EncoInt PValStrnEndGInt NPDefGrup(OnameStrn Underline PValStrnEndGInt OPDefGrup$PnameStrnItalic PValStrnEndGInt PPDefGrup QnameStrnBoldPValStrnEndGInt QPDefGrup$RnameStrnTextSizePValInt EndGInt RPDefGrup8SnameStrnTextFontEncoInt PValStrnSystem EndGInt SPDefGrup0TnameStrnAutoDeactivate PValStrnTrueEndGInt TPDefGrup0UnameStrnHelpTag EncoInt PValStrnEndGInt UPDefGrup(VnameStrnVisible PValStrnTrueEndGInt VPDefGrup(WnameStrnEnabled PValStrnTrueEndGInt WPDefGrup$XnameStrnCancel PValStrnEndGInt XPDefGrup$YnameStrnDefault PValStrnEndGInt YPDefGrup8ZnameStrnCaption EncoInt PValStrnThreadedEndGInt ZPDefGrup([nameStrnTabStop PValStrnTrueEndGInt [PDefGrup$\nameStrnTabIndexPValInt EndGInt \PDefGrup,]nameStrn TabPanelIndex PValInt EndGInt ]PDefGrup(^nameStrn LockBottom PValStrnEndGInt ^PDefGrup(_nameStrn LockRight PValStrnEndGInt _PDefGrup$`nameStrnLockTop PValStrnEndGInt `PDefGrup$anameStrnLockLeftPValStrnEndGInt aPDefGrup$bnameStrnHeight PValInt EndGInt bPDefGrup$cnameStrnWidth PValInt EndGInt cPDefGrup dnameStrnTop PValInt ;EndGInt dPDefGrup enameStrnLeftPValInt +EndGInt ePDefGrup(fnameStrnScope PValStrn0 EndGInt fPDefGrup<gnameStrnSuper EncoInt PValStrn PushButton EndGInt gPDefGrup$hnameStrnIndex PValInt EndGInt hPDefGrup8inameStrnNameEncoInt PValStrn pbThreaded EndGInt iCBixInt iLckInt EndGInt MCtrlGrupljcclsStrn ProgressBar nameStrn ProgressBar PDefGrup8knameStrn InitialParent EncoInt PValStrnEndGInt kPDefGrup$lnameStrnMaximum PValInt 'EndGInt lPDefGrup$mnameStrnValue PValInt EndGInt mPDefGrup(nnameStrnEnabled PValStrnTrueEndGInt nPDefGrup0onameStrnAutoDeactivate PValStrnTrueEndGInt oPDefGrup0pnameStrnHelpTag EncoInt PValStrnEndGInt pPDefGrup(qnameStrnVisible PValStrnTrueEndGInt qPDefGrup,rnameStrn TabPanelIndex PValInt EndGInt rPDefGrup(snameStrn LockBottom PValStrnEndGInt sPDefGrup(tnameStrn LockRight PValStrnEndGInt tPDefGrup$unameStrnLockTop PValStrnEndGInt uPDefGrup$vnameStrnLockLeftPValStrnEndGInt vPDefGrup$wnameStrnHeight PValInt EndGInt wPDefGrup$xnameStrnWidth PValInt gEndGInt xPDefGrup ynameStrnTop PValInt EndGInt yPDefGrup znameStrnLeftPValInt EndGInt zPDefGrup({nameStrnScope PValStrn0 EndGInt {PDefGrup<|nameStrnSuper EncoInt PValStrn ProgressBar EndGInt |PDefGrup$}nameStrnIndex PValInt EndGInt }PDefGrup<~nameStrnNameEncoInt PValStrn pbrUnthreaded EndGInt ~CBixInt iLckInt EndGInt jCtrlGruphcclsStrn ProgressBar nameStrn ProgressBar PDefGrup8nameStrn InitialParent EncoInt PValStrnEndGInt PDefGrup$nameStrnMaximum PValInt 'EndGInt PDefGrup$nameStrnValue PValInt EndGInt PDefGrup(nameStrnEnabled PValStrnTrueEndGInt PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup(nameStrn LockRight PValStrnEndGInt PDefGrup$nameStrnLockTop PValStrnEndGInt PDefGrup$nameStrnLockLeftPValStrnEndGInt PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$nameStrnWidth PValInt gEndGInt PDefGrup nameStrnTop PValInt ;EndGInt PDefGrup nameStrnLeftPValInt EndGInt PDefGrup(nameStrnScope PValStrn0 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn ProgressBar EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup8nameStrnNameEncoInt PValStrn pbrThreaded EndGInt CBixInt iLckInt EndGInt CtrlGrup<cclsStrnThread nameStrnThread PDefGrup$nameStrnWidth PValInt EndGInt PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup<nameStrn TabPanelIndex EncoInt PValStrn0 EndGInt PDefGrup(nameStrn StackSize PValInt EndGInt PDefGrup$nameStrnPriorityPValInt EndGInt PDefGrup0nameStrnTop EncoInt PValStrn103 EndGInt PDefGrup0nameStrnLeftEncoInt PValStrn20 EndGInt PDefGrup(nameStrnScope PValStrn0 EndGInt PDefGrup8nameStrnSuper EncoInt PValStrnThread EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup<nameStrnNameEncoInt PValStrnthdProgressBar EndGInt CBixInt iLckInt EndGInt CtrlGrupXcclsStrn StaticText nameStrn StaticText PDefGrup8nameStrn InitialParent EncoInt PValStrnEndGInt PDefGrup4nameStrn DataField EncoInt PValStrnEndGInt PDefGrup4nameStrn DataSource EncoInt PValStrnEndGInt PDefGrup(nameStrn Underline PValStrnEndGInt PDefGrup$nameStrnItalic PValStrnEndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup$nameStrnTextSizePValInt EndGInt PDefGrup8nameStrnTextFontEncoInt PValStrnSystem EndGInt PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup,nameStrnVisible PValStrnFalse EndGInt PDefGrup(nameStrnEnabled PValStrnTrueEndGInt PDefGrup(nameStrn Multiline PValStrnEndGInt PDefGrup(nameStrn TextColor PValInt EndGInt PDefGrup(nameStrn TextAlign PValInt EndGInt PDefGrupxnameStrnTextEncoInt PValStrnJTry to interact with the interface, i.e. use the menu, or move the window. EndGInt PDefGrup$nameStrnTabIndexPValInt EndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup(nameStrn LockRight PValStrnEndGInt PDefGrup$nameStrnLockTop PValStrnEndGInt PDefGrup$nameStrnLockLeftPValStrnEndGInt PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$nameStrnWidth PValInt XEndGInt PDefGrup nameStrnTop PValInt [EndGInt PDefGrup nameStrnLeftPValInt EndGInt PDefGrup(nameStrnScope PValStrn0 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn StaticText EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup8nameStrnNameEncoInt PValStrn StaticText1 EndGInt CBixInt iLckInt EndGInt PadnPadnH************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpMnu,_ NameStrnMenuBar1ContInt paswStrnMItmGruppspmuInt nameStrnFileMenutextStrn&File indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrupspmuInt nameStrnFileQuittextStrn#App.kFileQuit indxInt scutStrn#App.kFileQuitShortcut MiSKStrn#App.kFileQuitShortcut maEnInt EncoInt flagInt SuprStrn QuitMenuItemEndGInt EndGInt MItmGrup\spmuInt nameStrnEditMenutextStrn&Edit indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrupspmuInt nameStrnEditUndotextStrn&Undo indxInt scutStrnCmd+Z MiSKStrnZ MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrupspmuInt nameStrn UntitledMenu1 textStrn- indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrupspmuInt nameStrnEditCut textStrnCu&tindxInt scutStrnCmd+X MiSKStrnX MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrupspmuInt nameStrnEditCopytextStrn&Copy indxInt scutStrnCmd+C MiSKStrnC MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrupspmuInt nameStrn EditPaste textStrn&Paste indxInt scutStrnCmd+V MiSKStrnV MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrupspmuInt nameStrn EditClear textStrn#App.kEditClear indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrupspmuInt nameStrn UntitledMenu0 textStrn- indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrupspmuInt nameStrn EditSelectAll textStrn Select &All indxInt scutStrnCmd+A MiSKStrnA MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt EndGInt PadnPadn****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpUIsWnStGrupXOTabGrup4ContInt eSptInt plSCInt plCDInt EndGInt OTabGrupXContInt Ն8LSptInt RSptInt ScrXInt ScrYInt lstHInt @lstVInt @EndGInt OTabGrup@ContInt Ն8AltEInt LSptInt EEstInt ciIDInt EndGInt LsLcStrnWindow1.thdProgressBar.Run rEdtRectA^ EndGInt PadnPadnd************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************EOF!