VERSION 5.00
Begin VB.Form frmPpal 
   BackColor       =   &H00FFFFFF&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "PropertyGrid Demo"
   ClientHeight    =   6375
   ClientLeft      =   45
   ClientTop       =   405
   ClientWidth     =   6765
   Icon            =   "frmPpal.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   Picture         =   "frmPpal.frx":038A
   ScaleHeight     =   6375
   ScaleWidth      =   6765
   StartUpPosition =   2  'CenterScreen
   Begin PropertyGridDemo.PropertyGrid PropertyGrid 
      Height          =   3300
      Left            =   120
      TabIndex        =   0
      Top             =   435
      Width           =   3855
      _ExtentX        =   6800
      _ExtentY        =   5821
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      HelpBackColor   =   14811135
      HelpForeColor   =   -2147483625
      LineColor       =   10070188
      SplitterPos     =   0.6
      ViewCategoryForeColor=   -2147483640
      ViewForeColor   =   -2147483640
   End
   Begin PropertyGridDemo.PropertyGrid PropertyGrid1 
      Height          =   2130
      Left            =   120
      TabIndex        =   2
      Top             =   4125
      Width           =   3855
      _ExtentX        =   6800
      _ExtentY        =   3757
      BackColor       =   14737632
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      HelpBackColor   =   12648447
      HelpForeColor   =   16576
      HelpVisible     =   0   'False
      LineColor       =   8421504
      SplitterPos     =   0.6
      ViewCategoryForeColor=   4210752
      ViewForeColor   =   8421504
   End
   Begin VB.Label lblCaption 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Dedicated to the prettiest girl that I have known XD, T.Q.M mibi"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00004000&
      Height          =   675
      Index           =   3
      Left            =   4155
      TabIndex        =   5
      Top             =   5370
      Width           =   2475
   End
   Begin VB.Label lblCaption 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Based in the PropertyGrid Of Visual Basic 6.0. Any comment is wellcome and votes is great for me :)"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00004000&
      Height          =   870
      Index           =   2
      Left            =   4155
      TabIndex        =   4
      Top             =   4410
      Width           =   2475
   End
   Begin VB.Image imgCatg 
      Height          =   255
      Index           =   1
      Left            =   465
      MouseIcon       =   "frmPpal.frx":CA46
      MousePointer    =   99  'Custom
      Picture         =   "frmPpal.frx":CD50
      Top             =   135
      Width           =   225
   End
   Begin VB.Image imgCatg 
      Height          =   255
      Index           =   0
      Left            =   150
      MouseIcon       =   "frmPpal.frx":CDE1
      MousePointer    =   99  'Custom
      Picture         =   "frmPpal.frx":D0EB
      Top             =   135
      Width           =   240
   End
   Begin VB.Label lblCaption 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   $"frmPpal.frx":D17B
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00004000&
      Height          =   1080
      Index           =   1
      Left            =   4155
      TabIndex        =   3
      Top             =   3270
      Width           =   2475
   End
   Begin VB.Label lblCaption 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Result after of select in the First PropertyGrid"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   195
      Index           =   0
      Left            =   195
      TabIndex        =   1
      Top             =   3855
      Width           =   3855
   End
   Begin VB.Image imgLogo 
      Height          =   2010
      Left            =   3930
      Picture         =   "frmPpal.frx":D209
      Top             =   450
      Width           =   2985
   End
End
Attribute VB_Name = "frmPpal"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit '// Added


Private Sub Form_Load()

  Dim PSCContrib(28) As String
  Dim lRandom        As String
  Dim Credits(6)     As String
  Dim xSort(2)       As String
  Dim lFont          As New StdFont

    Randomize
    lRandom = Int((UBound(PSCContrib) * Rnd(Timer)))  ' Random Number between 0 To
    '   UBound(PSCContrib).
    xSort(0) = "Categorized"
    xSort(1) = "Alphabetical"
    xSort(2) = "NoSort"

    PSCContrib(0) = "IVan"
    PSCContrib(1) = "Fred.cpp"
    PSCContrib(2) = "Option Explicit"
    PSCContrib(3) = "Richard Mewett"
    PSCContrib(4) = "Jim Jose"
    PSCContrib(5) = "Paul Caton"
    PSCContrib(6) = "Paul R. Territo"
    PSCContrib(7) = "Carles P.V"
    PSCContrib(8) = "Habin"
    PSCContrib(9) = "Steppenwolfe"
    PSCContrib(10) = "Kelvin C. Perez"
    PSCContrib(11) = "Juan Carlos San Rom醤"
    PSCContrib(12) = "D. Rijmenants"
    PSCContrib(13) = "Gary Noble"
    PSCContrib(14) = "Dreamvb"
    PSCContrib(15) = "Selftaught"
    PSCContrib(16) = "Light Templer"
    PSCContrib(17) = "Luthfi"
    PSCContrib(18) = "Mario Flores"
    PSCContrib(19) = "Mario Villanueva"
    PSCContrib(20) = "rm_code"
    PSCContrib(21) = "Agustin Rodriguez"
    PSCContrib(22) = "Robert Rayment"
    PSCContrib(23) = "Ulli's"
    PSCContrib(24) = "LaVolpe"
    PSCContrib(25) = "Dean Camera"
    PSCContrib(26) = "Evan Toder"
    PSCContrib(27) = "Kinex"
    PSCContrib(28) = "int21"

    Credits(0) = PSCContrib(5) & " CodeId=54117"
    Credits(1) = "Steve McMahon" & " www.vbaccelerator.com"
    Credits(2) = PSCContrib(3) & " CodeId=61438"
    Credits(3) = PSCContrib(6) & " CodeId=63905"
    Credits(4) = PSCContrib(7) & " CodeId=29586"
    Credits(5) = PSCContrib(1) & " CodeId=61476"
    Credits(6) = PSCContrib(4) & " CodeId=60901"

    With PropertyGrid

        .AddCategory "Key2", "Properties", "Properties of this control", True
        .AddCategory "Key3", "About", "", True

        '.AddChildItem "Key1", PropertyItemStringList, "PSC Community", PSCContrib,
        '   PSCContrib(lRandom), "People that contribute in this community. #(^~^)#"

        .AddChildItem "Key2", PropertyItemStringReadOnly, "(Name)", .Name
        .AddChildItem "Key2", PropertyItemColor, "BackColor", .BackColor
        .AddChildItem "Key2", PropertyItemFont, "Font", .Font
        .AddChildItem "Key2", PropertyItemColor, "HelpBackColor", .HelpBackColor
        .AddChildItem "Key2", PropertyItemColor, "HelpForeColor", .HelpForeColor
        .AddChildItem "Key2", PropertyItemNumber, "HelpHeight", .HelpHeight
        .AddChildItem "Key2", PropertyItemBool, "HelpVisible", .HelpVisible
        .AddChildItem "Key2", PropertyItemColor, "LineColor", .LineColor
        .AddChildItem "Key2", PropertyItemStringList, "PropertySort", xSort, xSort(.PropertySort)
        .AddChildItem "Key2", PropertyItemNumber, "SplitterPos", .SplitterPos
        .AddChildItem "Key2", PropertyItemColor, "ViewBackColor", .ViewBackColor
        .AddChildItem "Key2", PropertyItemColor, "ViewCategoryForeColor", .ViewCategoryForeColor
        .AddChildItem "Key2", PropertyItemColor, "ViewForeColor", .ViewForeColor

        .AddChildItem "Key3", PropertyItemStringReadOnly, "Author", "Heriberto Mantilla Santamar韆", _
            , "All rights Reserved