Public Class BaseClass


    ' ScrName is the name of the script file.

    Public Property ScrName() As String

    ' Usage is what to do with the script.

    Public Property Usage() As String

    ' Desc is the description of what the script does.

    Public Property Desc() As String

    ' Script is the script file it's self.

    Public Property Script() As String

    ' Gets the Version of the Script. Either X9 or X10

    Public Property Xver() As String

    ' Holds weather script is compateble with each version. X9 Only, X10 Only or both X9 & X10

    Public Property Compat() As String

    ' Holds additional information of what the script.

    Public Property AddInfo() As String

    ' Hold the date script was added

    Public Property Dateadded() As String

    Public Property Scriptcount() As String

End Class

Public Class Record

    Inherits BaseClass

    Public Property Catel As String

    ' Electronics Sub-Category Data

    Public Property Electronics As New Electronics

    ' Enemies Sub-Category Data

    Public Property Enemies As New Enemies

End Class

Public Class Electronics

    Inherits BaseClass

    Public Sub New()
        'Empty Constructor   
    End Sub

    Public Sub New(ByVal scrName As String, ByVal usage As String, ByVal desc As String, ByVal script As String, ByVal xver As String, _
                   ByVal compat As String, ByVal addInfo As String, ByVal dateadded As String, ByVal scriptcount As String)

        Me.Desc = desc
        Me.Usage = usage
        Me.ScrName = scrName
        Me.Script = script
        Me.Xver = xver
        Me.Compat = compat
        Me.AddInfo = addInfo
        Me.Dateadded = dateadded
        Me.Scriptcount = scriptcount

    End Sub

End Class

Public Class ViewScripts

    Private Sub ViewScripts_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ' Add list of categories to listbox

        For Each f As String In Catelog

            CatelogList.Items.Add(f)

        Next

    End Sub

Private Sub CatelogList_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles CatelogList.SelectedIndexChanged


        ScriptList.Items.Clear()

        ' Grab the category from the list 

        Dim CurrentRecord As Record = ListOfRecords.Item(CatelogList.SelectedIndex)

       
          ' Load Cat with the selected category.
        Cat = CatelogList.SelectedItem

        Dim CatSelected As String = Cat

        ' Add list of catelogs to listbox

        With CatSelected

          ' Now populate listbox two with any objects stored under category.

            For Each f As String In CurrentRecord.ScrName

                ScriptList.Items.Add(CurrentRecord.ScrName)

            Next
        End With

    End Sub

   Private Sub ScriptList_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ScriptList.SelectedIndexChanged


        Dim selectedRecord As New Record

        For Each checkRecord As Record In ListOfRecords

            If checkRecord.ScrName = CatelogList.SelectedItem.ToString Then
                
                ScriptUsage.Text = checkRecord.Usage
                
                ScriptDescription.Text = checkRecord.Desc
                
                AddInfo.Text = checkRecord.AddInfo
                
                ScriptView.Text = checkRecord.Script

            End If
        Next

    End Sub

Public Class AClass
    Public FirstName As String
    Public SecondName As String
    Public Age As Integer

    Sub New(ByVal firstName As String, ByVal secondName As String, ByVal age As Integer)
        Me.FirstName = firstName
        Me.SecondName = secondName
        Me.Age = age
    End Sub

    Public ReadOnly Property FullName() As String
        Get
            Return FirstName & " " & SecondName
        End Get
    End Property

    Public Overrides Function ToString() As String
        Return FullName
    End Function
End Class

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim c As New AClass("John", "Smith", 24)
        ListBox1.Items.Add(c)

        c = New AClass("Fred", "Boon", 30)
        ListBox1.Items.Add(c)

        c = New AClass("Jack", "Spencer", 45)
        ListBox1.Items.Add(c)
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

        Dim c As AClass

        c = CType(ListBox1.Items(ListBox1.SelectedIndex), AClass)

        MessageBox.Show(c.FullName & ", " & c.Age)
    End Sub