Dim spy As New CSpy
    Dim spyList(5) As CSpy

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'spyList(2).fname = "Bob"
        Dim counter As Integer = 0
        For Each spy In spyList
            Label1.Text = CStr(counter) + spyList(counter).fname + vbCrLf
            counter += 1
        Next


    End Sub