Public Class CDTimer
    Public Class Items
        Public Sub Add(ByVal Text As String, ByVal StopTime As DateTime, ByVal _
          TimeString As String)
            Me.Text = Text
            Me.StopTime = StopTime
            Me.TimeString = TimeString
        End Sub
End Class