home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 32 / hot34.iso / ficheros / LVB / T2W32523.ZIP / _OBJECT.FRM < prev    next >
Text File  |  1998-04-07  |  20KB  |  518 lines
  1. VERSION 5.00
  2. Object = "{0BA686C6-F7D3-101A-993E-0000C0EF6F5E}#1.0#0"; "THREED32.OCX"
  3. Begin VB.Form frmObject 
  4.    BorderStyle     =   4  'Fixed ToolWindow
  5.    Caption         =   "Object"
  6.    ClientHeight    =   4845
  7.    ClientLeft      =   1890
  8.    ClientTop       =   3270
  9.    ClientWidth     =   7485
  10.    MaxButton       =   0   'False
  11.    MDIChild        =   -1  'True
  12.    PaletteMode     =   1  'UseZOrder
  13.    ScaleHeight     =   4845
  14.    ScaleWidth      =   7485
  15.    ShowInTaskbar   =   0   'False
  16.    Begin VB.TextBox txt_Result 
  17.       BackColor       =   &H00C0C0C0&
  18.       BorderStyle     =   0  'None
  19.       Height          =   3270
  20.       Left            =   105
  21.       Locked          =   -1  'True
  22.       MultiLine       =   -1  'True
  23.       ScrollBars      =   2  'Vertical
  24.       TabIndex        =   0
  25.       Top             =   630
  26.       Width           =   7260
  27.    End
  28.    Begin Threed.SSFrame SSFrame1 
  29.       Height          =   750
  30.       Index           =   1
  31.       Left            =   105
  32.       TabIndex        =   1
  33.       Tag             =   "Tag for SSFrame1"
  34.       Top             =   3990
  35.       Width           =   7260
  36.       _Version        =   65536
  37.       _ExtentX        =   12806
  38.       _ExtentY        =   1323
  39.       _StockProps     =   14
  40.       Caption         =   "Test Frame"
  41.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  42.          Name            =   "MS Sans Serif"
  43.          Size            =   8.25
  44.          Charset         =   0
  45.          Weight          =   400
  46.          Underline       =   0   'False
  47.          Italic          =   0   'False
  48.          Strikethrough   =   0   'False
  49.       EndProperty
  50.       MousePointer    =   13
  51.       Begin VB.Label Label1 
  52.          Alignment       =   2  'Center
  53.          Caption         =   "Test Label"
  54.          DataField       =   "DataField for Label1"
  55.          ForeColor       =   &H00FF0000&
  56.          Height          =   330
  57.          Left            =   105
  58.          MousePointer    =   14  'Arrow and Question
  59.          TabIndex        =   2
  60.          Tag             =   "Tag for Label1"
  61.          Top             =   315
  62.          Width           =   7050
  63.       End
  64.    End
  65.    Begin Threed.SSPanel SSPanel1 
  66.       Align           =   1  'Align Top
  67.       Height          =   480
  68.       Left            =   0
  69.       TabIndex        =   3
  70.       Top             =   0
  71.       Width           =   7485
  72.       _Version        =   65536
  73.       _ExtentX        =   13203
  74.       _ExtentY        =   847
  75.       _StockProps     =   15
  76.       ForeColor       =   -2147483640
  77.       BackColor       =   12632256
  78.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  79.          Name            =   "MS Sans Serif"
  80.          Size            =   8.25
  81.          Charset         =   0
  82.          Weight          =   400
  83.          Underline       =   0   'False
  84.          Italic          =   0   'False
  85.          Strikethrough   =   0   'False
  86.       EndProperty
  87.       Begin VB.ComboBox cmb_Function 
  88.          Height          =   315
  89.          Left            =   1365
  90.          TabIndex        =   4
  91.          Top             =   90
  92.          Width           =   4785
  93.       End
  94.       Begin Threed.SSCommand cmdNP 
  95.          Height          =   300
  96.          Index           =   1
  97.          Left            =   7140
  98.          TabIndex        =   8
  99.          Top             =   90
  100.          Width           =   255
  101.          _Version        =   65536
  102.          _ExtentX        =   450
  103.          _ExtentY        =   529
  104.          _StockProps     =   78
  105.          Caption         =   ">"
  106.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  107.             Name            =   "MS Sans Serif"
  108.             Size            =   8.25
  109.             Charset         =   0
  110.             Weight          =   400
  111.             Underline       =   0   'False
  112.             Italic          =   0   'False
  113.             Strikethrough   =   0   'False
  114.          EndProperty
  115.          BevelWidth      =   1
  116.          Font3D          =   3
  117.          RoundedCorners  =   0   'False
  118.          Outline         =   0   'False
  119.       End
  120.       Begin Threed.SSCommand cmdNP 
  121.          Height          =   300
  122.          Index           =   0
  123.          Left            =   6300
  124.          TabIndex        =   7
  125.          Top             =   90
  126.          Width           =   255
  127.          _Version        =   65536
  128.          _ExtentX        =   450
  129.          _ExtentY        =   529
  130.          _StockProps     =   78
  131.          Caption         =   "<"
  132.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  133.             Name            =   "MS Sans Serif"
  134.             Size            =   8.25
  135.             Charset         =   0
  136.             Weight          =   400
  137.             Underline       =   0   'False
  138.             Italic          =   0   'False
  139.             Strikethrough   =   0   'False
  140.          EndProperty
  141.          BevelWidth      =   1
  142.          Font3D          =   3
  143.          RoundedCorners  =   0   'False
  144.          Outline         =   0   'False
  145.       End
  146.       Begin Threed.SSCommand SSCommand1 
  147.          Default         =   -1  'True
  148.          Height          =   300
  149.          Left            =   6615
  150.          TabIndex        =   5
  151.          Top             =   90
  152.          Width           =   465
  153.          _Version        =   65536
  154.          _ExtentX        =   820
  155.          _ExtentY        =   529
  156.          _StockProps     =   78
  157.          Caption         =   "&Go"
  158.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  159.             Name            =   "MS Sans Serif"
  160.             Size            =   8.25
  161.             Charset         =   0
  162.             Weight          =   400
  163.             Underline       =   0   'False
  164.             Italic          =   0   'False
  165.             Strikethrough   =   0   'False
  166.          EndProperty
  167.          BevelWidth      =   1
  168.          RoundedCorners  =   0   'False
  169.          Outline         =   0   'False
  170.       End
  171.       Begin VB.Label Label2 
  172.          Caption         =   "&Select a function"
  173.          Height          =   255
  174.          Left            =   90
  175.          TabIndex        =   6
  176.          Top             =   120
  177.          Width           =   1275
  178.       End
  179.    End
  180. End
  181. Attribute VB_Name = "frmObject"
  182. Attribute VB_GlobalNameSpace = False
  183. Attribute VB_Creatable = False
  184. Attribute VB_PredeclaredId = True
  185. Attribute VB_Exposed = False
  186. Option Explicit
  187. Option Base 1
  188.  
  189. Private Const Iteration = 250
  190.  
  191. Dim IsLoaded         As Integer
  192.  
  193. Dim TimerStartOk     As Integer
  194. Dim TimerCloseOk     As Integer
  195.  
  196. Dim TimerHandle      As Integer
  197. Dim TimerValue       As Long
  198. Private Sub cmdNP_Click(Index As Integer)
  199.  
  200.    Call sub_NextPrev(cmb_Function, Index)
  201.  
  202. End Sub
  203. Private Sub cmb_Function_Click()
  204.    
  205.    If (IsLoaded = False) Then Exit Sub
  206.    
  207.    Call cDisableFI(mdiT2W.Picture1)
  208.    
  209.    txt_Result = ""
  210.    
  211.    DoEvents
  212.    
  213.    Select Case cmb_Function.ListIndex
  214.       Case 0
  215.          Call TestObjectGetX
  216.       Case 1
  217.          Call TestGetObjX
  218.       Case 2
  219.          Call TestObjectPutX
  220.       Case 3
  221.          Call TestPutObjX
  222.       Case 4
  223.          Call TestEnumObjects
  224.    End Select
  225.  
  226.    DoEvents
  227.    Call cEnableFI(mdiT2W.Picture1)
  228.    
  229. End Sub
  230. Private Sub Form_Activate()
  231.  
  232.    mdiT2W.Label2.Caption = cInsertBlocks(mdiT2W.Label2.Tag, "" & Iteration)
  233.  
  234. End Sub
  235. Private Sub Form_Load()
  236.  
  237.    IsLoaded = False
  238.    
  239.    Show
  240.  
  241.    Call sub_Load_Combo(cmb_Function, T2WDirInst + "_object.t2w")
  242.    
  243.    IsLoaded = True
  244.    
  245. End Sub
  246. Private Sub SSCommand1_Click()
  247.    
  248.    Call cmb_Function_Click
  249.    
  250. End Sub
  251. Private Sub TestObjectGetX()
  252.  
  253.    Dim intResult        As Integer
  254.    Dim strResult        As String
  255.    Dim strDisplay       As String
  256.    
  257.    Dim i                As Integer
  258.    
  259.    strResult = ""
  260.    strDisplay = ""
  261.  
  262.    strDisplay = strDisplay & "ObjectGetX for SSFrame1(1)" & vbCrLf & vbCrLf
  263.    strDisplay = strDisplay & "Boolean (property 'enabled') is '" & cObjectGetBoolean(SSFrame1(1), "enabled") & "'" & vbCrLf
  264.    strDisplay = strDisplay & "Byte (property 'alignment') is '" & cObjectGetByte(SSFrame1(1), "alignment") & "'" & vbCrLf
  265.    strDisplay = strDisplay & "Integer (property 'mousepointer') is '" & cObjectGetInteger(SSFrame1(1), "mousepointer") & "'" & vbCrLf
  266.    strDisplay = strDisplay & "Long (property 'forecolor') is '" & cObjectGetLong(SSFrame1(1), "forecolor") & "'" & vbCrLf
  267.    strDisplay = strDisplay & "String (property 'caption') is '" & cObjectGetString(SSFrame1(1), "caption") & "'" & vbCrLf
  268.    strDisplay = strDisplay & "Variant (property 'tabindex') is '" & cObjectGetVariant(SSFrame1(1), "tabindex") & "'" & vbCrLf
  269.    strDisplay = strDisplay & "Variant (property 'caption') is '" & cObjectGetVariant(SSFrame1(1), "caption") & "'" & vbCrLf
  270.    strDisplay = strDisplay & "Variant (property 'visible') is '" & cObjectGetVariant(SSFrame1(1), "visible") & "'" & vbCrLf
  271.    strDisplay = strDisplay & "Index (property 'index') is '" & cObjectGetIndex(SSFrame1(1)) & "'" & vbCrLf
  272.  
  273.    strDisplay = strDisplay & vbCrLf
  274.    
  275.    strDisplay = strDisplay & "ObjectGetX for Label1" & vbCrLf & vbCrLf
  276.    strDisplay = strDisplay & "Boolean (property 'enabled') is '" & cObjectGetBoolean(Label1, "enabled") & "'" & vbCrLf
  277.    strDisplay = strDisplay & "Byte (property 'alignment') is '" & cObjectGetByte(Label1, "alignment") & "'" & vbCrLf
  278.    strDisplay = strDisplay & "Integer (property 'mousepointer') is '" & cObjectGetInteger(Label1, "mousepointer") & "'" & vbCrLf
  279.    strDisplay = strDisplay & "Long (property 'forecolor') is '" & cObjectGetLong(Label1, "forecolor") & "'" & vbCrLf
  280.    strDisplay = strDisplay & "String (property 'caption') is '" & cObjectGetString(Label1, "caption") & "'" & vbCrLf
  281.    strDisplay = strDisplay & "Variant (property 'tabindex') is '" & cObjectGetVariant(Label1, "tabindex") & "'" & vbCrLf
  282.    strDisplay = strDisplay & "Variant (property 'caption') is '" & cObjectGetVariant(Label1, "caption") & "'" & vbCrLf
  283.    strDisplay = strDisplay & "Variant (property 'visible') is '" & cObjectGetVariant(Label1, "visible") & "'" & vbCrLf
  284.    strDisplay = strDisplay & "Index (property 'index') is '" & cObjectGetIndex(Label1) & "'"
  285.  
  286.    txt_Result = strDisplay
  287.    
  288.    'time the function
  289.  
  290.    TimerHandle = cTimerOpen()
  291.    TimerStartOk = cTimerStart(TimerHandle)
  292.    
  293.    For i = 1 To Iteration
  294.       strResult = cObjectGetString(cmb_Function, "text")
  295.    Next i
  296.    
  297.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  298.    
  299.    TimerCloseOk = cTimerClose(TimerHandle)
  300.  
  301. End Sub
  302. Private Sub TestGetObjX()
  303.  
  304.    Dim intResult        As Integer
  305.    Dim strResult        As String
  306.    Dim strDisplay       As String
  307.    
  308.    Dim i                As Integer
  309.    
  310.    strResult = ""
  311.    strDisplay = ""
  312.  
  313.    strDisplay = strDisplay & "GetObjX for SSFrame1(1)" & vbCrLf & vbCrLf
  314.    strDisplay = strDisplay & "Caption is '" & cGetObjCaption(SSFrame1(1)) & "'" & vbCrLf
  315.    strDisplay = strDisplay & "Container is '" & cGetObjContainer(SSFrame1(1)) & "'" & vbCrLf
  316.    strDisplay = strDisplay & "Parent is '" & cGetObjParent(SSFrame1(1)) & "'" & vbCrLf
  317.    strDisplay = strDisplay & "Tag is '" & cGetObjTag(SSFrame1(1)) & "'" & vbCrLf
  318.    strDisplay = strDisplay & "Text is '" & cGetObjText(SSFrame1(1)) & "'" & vbCrLf
  319.    strDisplay = strDisplay & "DataField is '" & cGetObjDataField(SSFrame1(1)) & "'" & vbCrLf
  320.    strDisplay = strDisplay & "DataSource is '" & cGetObjDataSource(SSFrame1(1)) & "'" & vbCrLf
  321.    strDisplay = strDisplay & "Name is '" & cGetObjName(SSFrame1(1)) & "'" & vbCrLf
  322.    strDisplay = strDisplay & "Index is '" & cGetObjIndex(SSFrame1(1)) & "'" & vbCrLf
  323.    strDisplay = strDisplay & "NameIndex is '" & cGetObjNameIndex(SSFrame1(1)) & "'" & vbCrLf
  324.    strDisplay = strDisplay & "ClassName is '" & cGetObjClassName(SSFrame1(1)) & "'" & vbCrLf
  325.  
  326.    strDisplay = strDisplay & vbCrLf
  327.    
  328.    strDisplay = strDisplay & "GetObjX for Label1" & vbCrLf & vbCrLf
  329.    strDisplay = strDisplay & "Caption is '" & cGetObjCaption(Label1) & "'" & vbCrLf
  330.    strDisplay = strDisplay & "Container is '" & cGetObjContainer(Label1) & "'" & vbCrLf
  331.    strDisplay = strDisplay & "Parent is '" & cGetObjParent(Label1) & "'" & vbCrLf
  332.    strDisplay = strDisplay & "Tag is '" & cGetObjTag(Label1) & "'" & vbCrLf
  333.    strDisplay = strDisplay & "Text is '" & cGetObjText(Label1) & "'" & vbCrLf
  334.    strDisplay = strDisplay & "DataField is '" & cGetObjDataField(Label1) & "'" & vbCrLf
  335.    strDisplay = strDisplay & "DataSource is '" & cGetObjDataSource(Label1) & "'" & vbCrLf
  336.    strDisplay = strDisplay & "Name is '" & cGetObjName(Label1) & "'" & vbCrLf
  337.    strDisplay = strDisplay & "Index is '" & cGetObjIndex(Label1) & "'" & vbCrLf
  338.    strDisplay = strDisplay & "NameIndex is '" & cGetObjNameIndex(Label1) & "'" & vbCrLf
  339.    strDisplay = strDisplay & "ClassName is '" & cGetObjClassName(Label1) & "'" & vbCrLf
  340.  
  341.    txt_Result = strDisplay
  342.    
  343.    'time the function
  344.  
  345.    TimerHandle = cTimerOpen()
  346.    TimerStartOk = cTimerStart(TimerHandle)
  347.    
  348.    For i = 1 To Iteration
  349.       strResult = cGetObjContainer(cmb_Function)
  350.    Next i
  351.    
  352.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  353.    
  354.    TimerCloseOk = cTimerClose(TimerHandle)
  355.  
  356. End Sub
  357. Private Sub TestObjectPutX()
  358.  
  359.    Dim intResult        As Integer
  360.    Dim strResult        As String
  361.    Dim strDisplay       As String
  362.    
  363.    Dim i                As Integer
  364.    
  365.    strResult = ""
  366.    strDisplay = ""
  367.  
  368.    strDisplay = strDisplay & "ObjectPutX for SSFrame1(1)" & vbCrLf & vbCrLf
  369.    Call cObjectPutBoolean(SSFrame1(1), "enabled", False)
  370.    strDisplay = strDisplay & "Boolean (property 'enabled') is '" & cObjectGetBoolean(SSFrame1(1), "enabled") & "'" & vbCrLf
  371.    Call cObjectPutByte(SSFrame1(1), "alignment", 1)
  372.    strDisplay = strDisplay & "Byte (property 'alignment') is '" & cObjectGetByte(SSFrame1(1), "alignment") & "'" & vbCrLf
  373.    Call cObjectPutInteger(SSFrame1(1), "mousepointer", 7)
  374.    strDisplay = strDisplay & "Integer (property 'mousepointer') is '" & cObjectGetInteger(SSFrame1(1), "mousepointer") & "'" & vbCrLf
  375.    Call cObjectPutLong(SSFrame1(1), "forecolor", &HC0C0C0)
  376.    strDisplay = strDisplay & "Long (property 'forecolor') is '" & cObjectGetLong(SSFrame1(1), "forecolor") & "'" & vbCrLf
  377.    Call cObjectPutString(SSFrame1(1), "caption", "SSFrame1(1).Caption is now this")
  378.    strDisplay = strDisplay & "String (property 'caption') is '" & cObjectGetString(SSFrame1(1), "caption") & "'" & vbCrLf
  379.  
  380.    strDisplay = strDisplay & vbCrLf
  381.    
  382.    strDisplay = strDisplay & "ObjectPutX for Label1" & vbCrLf & vbCrLf
  383.    Call cObjectPutBoolean(Label1, "enabled", False)
  384.    strDisplay = strDisplay & "Boolean (property 'enabled') is '" & cObjectGetBoolean(Label1, "enabled") & "'" & vbCrLf
  385.    Call cObjectPutByte(Label1, "alignment", 1)
  386.    strDisplay = strDisplay & "Byte (property 'alignment') is '" & cObjectGetByte(Label1, "alignment") & "'" & vbCrLf
  387.    Call cObjectPutInteger(Label1, "mousepointer", 7)
  388.    strDisplay = strDisplay & "Integer (property 'mousepointer') is '" & cObjectGetInteger(Label1, "mousepointer") & "'" & vbCrLf
  389.    Call cObjectPutLong(Label1, "forecolor", &HC0C0C0)
  390.    strDisplay = strDisplay & "Long (property 'forecolor') is '" & cObjectGetLong(Label1, "forecolor") & "'" & vbCrLf
  391.    Call cObjectPutString(Label1, "caption", "Label1.Caption is now this")
  392.    strDisplay = strDisplay & "String (property 'caption') is '" & cObjectGetString(Label1, "caption") & "'" & vbCrLf
  393.  
  394.    txt_Result = strDisplay
  395.    
  396.    'time the function
  397.  
  398.    TimerHandle = cTimerOpen()
  399.    TimerStartOk = cTimerStart(TimerHandle)
  400.    
  401.    For i = 1 To Iteration
  402.       If ((i Mod 2) = 0) Then
  403.          Call cObjectPutByte(Label1, "borderstyle", 0)
  404.       Else
  405.          Call cObjectPutByte(Label1, "borderstyle", 1)
  406.       End If
  407.       DoEvents
  408.    Next i
  409.    
  410.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  411.    
  412.    TimerCloseOk = cTimerClose(TimerHandle)
  413.  
  414. End Sub
  415. Private Sub TestPutObjX()
  416.  
  417.    Dim intResult        As Integer
  418.    Dim strResult        As String
  419.    Dim strDisplay       As String
  420.    
  421.    Dim i                As Integer
  422.    
  423.    strResult = ""
  424.    strDisplay = ""
  425.  
  426.    strDisplay = strDisplay & "PutObjX for SSFrame1(1)" & vbCrLf & vbCrLf
  427.    Call cPutObjCaption(SSFrame1(1), "SSFrame1(1).Caption set by PutObjCaption")
  428.    strDisplay = strDisplay & "Caption is '" & cGetObjCaption(SSFrame1(1)) & "'" & vbCrLf
  429.    Call cPutObjDataField(SSFrame1(1), "DataField set by PutObjDataField")
  430.    strDisplay = strDisplay & "DataField is '" & cGetObjDataField(SSFrame1(1)) & "'" & vbCrLf
  431.    Call cPutObjDataSource(SSFrame1(1), "DataSource set by PutObjSource")
  432.    strDisplay = strDisplay & "DataSource is '" & cGetObjDataSource(SSFrame1(1)) & "'" & vbCrLf
  433.    Call cPutObjTag(SSFrame1(1), "Tag set by PutObjTag")
  434.    strDisplay = strDisplay & "Tag is '" & cGetObjTag(SSFrame1(1)) & "'" & vbCrLf
  435.    Call cPutObjText(SSFrame1(1), "Text set by PutObjText")
  436.    strDisplay = strDisplay & "Text is '" & cGetObjText(SSFrame1(1)) & "'" & vbCrLf
  437.  
  438.    strDisplay = strDisplay & vbCrLf
  439.    
  440.    strDisplay = strDisplay & "PutObjX for Label1" & vbCrLf & vbCrLf
  441.    Call cPutObjCaption(Label1, "Label1.Caption set by PutObjCaption")
  442.    strDisplay = strDisplay & "Caption is '" & cGetObjCaption(Label1) & "'" & vbCrLf
  443.    Call cPutObjDataField(Label1, "DataField set by PutObjDataField")
  444.    strDisplay = strDisplay & "DataField is '" & cGetObjDataField(Label1) & "'" & vbCrLf
  445.    Call cPutObjDataSource(Label1, "DataSource set by PutObjSource")
  446.    strDisplay = strDisplay & "DataSource is '" & cGetObjDataSource(Label1) & "'" & vbCrLf
  447.    Call cPutObjTag(Label1, "Tag set by PutObjTag")
  448.    strDisplay = strDisplay & "Tag is '" & cGetObjTag(Label1) & "'" & vbCrLf
  449.    Call cPutObjText(Label1, "Text set by PutObjText")
  450.    strDisplay = strDisplay & "Text is '" & cGetObjText(Label1) & "'" & vbCrLf
  451.  
  452.    txt_Result = strDisplay
  453.    
  454.    'time the function
  455.  
  456.    TimerHandle = cTimerOpen()
  457.    TimerStartOk = cTimerStart(TimerHandle)
  458.    
  459.    For i = 1 To Iteration
  460.       Call cPutObjTag(cmb_Function, "Tag set by PutObjTag")
  461.    Next i
  462.    
  463.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  464.    
  465.    TimerCloseOk = cTimerClose(TimerHandle)
  466.  
  467. End Sub
  468. Private Sub TestEnumObjects()
  469.  
  470.    Dim intResult        As Integer
  471.    Dim strResult        As String
  472.    Dim strDisplay       As String
  473.       
  474.    Dim i                As Integer
  475.    
  476.    Dim ObjectNameIndex  As String
  477.    Dim Obj              As Object
  478.       
  479.    strResult = ""
  480.    strDisplay = ""
  481.    
  482.    strDisplay = strDisplay + "Current objects (format 1) on this form " & vbCrLf & vbCrLf
  483.    
  484.    intResult = cEnumObjects(Me, ENUMOBJECTS_FORMAT1, True, ObjectNameIndex, Obj)
  485.    
  486.    While (intResult = True)
  487.       strDisplay = strDisplay & ObjectNameIndex & vbCrLf
  488.       intResult = cEnumObjects(Me, ENUMOBJECTS_FORMAT1, False, ObjectNameIndex, Obj)
  489.    Wend
  490.    
  491.    strDisplay = strDisplay & vbCrLf
  492.    
  493.    strDisplay = strDisplay + "Current objects (format 2) on this form " & vbCrLf & vbCrLf
  494.  
  495.    intResult = cEnumObjects(Me, ENUMOBJECTS_FORMAT2, True, ObjectNameIndex, Obj)
  496.    
  497.    While (intResult = True)
  498.       strDisplay = strDisplay & ObjectNameIndex & vbCrLf
  499.       intResult = cEnumObjects(Me, ENUMOBJECTS_FORMAT2, False, ObjectNameIndex, Obj)
  500.    Wend
  501.    
  502.    txt_Result = strDisplay
  503.  
  504.    'time the function
  505.  
  506.    TimerHandle = cTimerOpen()
  507.    TimerStartOk = cTimerStart(TimerHandle)
  508.    
  509.    For i = 1 To Iteration
  510.       'intResult = cEnumObjects(Me, False, ObjectNameIndex, Obj)
  511.    Next i
  512.    
  513.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  514.    
  515.    TimerCloseOk = cTimerClose(TimerHandle)
  516.  
  517. End Sub
  518.