[Resolved] Class within a class

[consciouspnm]

I have two classes:

        Public Class Sensor
            Public Number As Integer
            Public Name As String
            Public Value As Integer
        End Class

        Public Class Transmitter
            Public Number As Integer
            Public Name As String
            Public Type As Integer
            Public MySensor() As Sensor
        End Class

but I can't work out how to populate the sub class:

            Dim MyTX As Transmitter
            Dim MySens As Sensor
            Dim MyTransmitter(9) As Transmitter

            MyTX = New Transmitter
            MySens = New Sensor

            MyTX.Name = "Transmitter"
            MySens.Name = "Sensor"
            MyTransmitter(0) = MyTX
            MyTransmitter(0).MySensor(0) = MySens

            Debug.Print(MyTransmitter(0).MySensor(0).Name)

as I get an object not set error. Can someone give me the correct syntax?