some more collection functions

OlimilO1402 · Jun 15, 2024 · 16809a2 · 16809a2
1 parent f1fbccd
commit 16809a2
Show file tree

Hide file tree

Showing 4 changed files with 161 additions and 112 deletions.
diff --git a/Forms/FMain.frm b/Forms/FMain.frm
@@ -20,36 +20,44 @@ Begin VB.Form FMain
    ScaleMode       =   3  'Pixel
    ScaleWidth      =   304
    StartUpPosition =   3  'Windows-Standard
+   Begin VB.CommandButton Command1 
+      Caption         =   "Test VB.Collection"
+      Height          =   375
+      Left            =   240
+      TabIndex        =   5
+      Top             =   2640
+      Width           =   1935
+   End
    Begin VB.CommandButton BtnTestObjPtr 
       Caption         =   "Test ObjPtr"
       Height          =   375
       Left            =   240
       TabIndex        =   4
-      Top             =   2040
+      Top             =   1680
       Width           =   1935
    End
    Begin VB.CommandButton BtnTSafeArrayPtr 
       Caption         =   "Test SafeArrayPtr"
       Height          =   375
       Left            =   240
       TabIndex        =   3
-      Top             =   840
+      Top             =   720
       Width           =   1935
    End
    Begin VB.CommandButton BtnTestSAPtr 
       Caption         =   "Test SAPtr"
       Height          =   375
       Left            =   240
       TabIndex        =   2
-      Top             =   2640
+      Top             =   2160
       Width           =   1935
    End
    Begin VB.CommandButton BtnTestArrayPointer 
       Caption         =   "Test Array-Pointer"
       Height          =   375
       Left            =   240
       TabIndex        =   1
-      Top             =   1440
+      Top             =   1200
       Width           =   1935
    End
    Begin VB.CommandButton BtnTestCharArray 

diff --git a/Forms/Form5.frm b/Forms/Form5.frm
@@ -0,0 +1,19 @@
+VERSION 5.00
+Begin VB.Form Form5 
+   Caption         =   "Form5"
+   ClientHeight    =   6060
+   ClientLeft      =   120
+   ClientTop       =   465
+   ClientWidth     =   11955
+   LinkTopic       =   "Form5"
+   ScaleHeight     =   6060
+   ScaleWidth      =   11955
+   StartUpPosition =   3  'Windows-Standard
+End
+Attribute VB_Name = "Form5"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = False
+Option Explicit
+