minor changes

Forms/FPersons.frm

@@ -1,10 +1,10 @@
 VERSION 5.00
 Begin VB.Form FPersons 
    Caption         =   "Persons"
-   ClientHeight    =   2865
+   ClientHeight    =   3015
    ClientLeft      =   120
    ClientTop       =   465
-   ClientWidth     =   14145
+   ClientWidth     =   13950
    BeginProperty Font 
       Name            =   "Segoe UI"
       Size            =   9.75
@@ -15,8 +15,8 @@ Begin VB.Form FPersons
       Strikethrough   =   0   'False
    EndProperty
    LinkTopic       =   "Form1"
-   ScaleHeight     =   2865
-   ScaleWidth      =   14145
+   ScaleHeight     =   3015
+   ScaleWidth      =   13950
    StartUpPosition =   3  'Windows-Standard
    Begin VB.CommandButton BtnDelete 
       Caption         =   "Delete [ - ]"
@@ -73,6 +73,13 @@ Private Sub Form_Load()
     UpdateView
 End Sub
 
+Private Sub Form_Resize()
+    Dim L As Single, T As Single: T = List1.Top
+    Dim W As Single: W = Me.ScaleWidth
+    Dim H As Single: H = Me.ScaleHeight - T
+    If W > 0 And H > 0 Then List1.Move L, T, W, H
+End Sub
+
 Private Sub BtnAdd_Click()
     Dim p As New Person
     If FPerson.ShowDialog(p, Me) = vbCancel Then Exit Sub

PCloning.vbp

@@ -9,8 +9,8 @@ Class=Brain; Classes\Brain.cls
 Class=BrainSmart; Classes\BrainSmart.cls
 Class=City; Classes\City.cls
 Class=Person; Classes\Person.cls
-ResFile32="Resources\MyRes.RES"
 Module=MPtr; ..\Ptr_Pointers\Modules\MPtr.bas
+ResFile32="Resources\MyRes.RES"
 IconForm="FMain"
 Startup="Sub Main"
 HelpFile=""