VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "CProfessor"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
' This class is used for storing and applying selected properties of the Alarm control

Option Explicit

Public Style As Integer, WaveName As String, WaveSource As String
'  This procedure sets the properties of the Student object to match the
'       corresponding properties of this class instance
Public Sub TeachPropertiesToObject(Student As Object)


    Student.Style = Me.Style
    Student.WaveName = Me.WaveName
    Student.WaveSource = Me.WaveSource
    

End Sub

'  This procedure sets the properties of this object instnce to match the
'       corresponding properties of the passed Alarm control
Public Sub LearnAlarmProperties(Alarm As Object)


    ' change my properties to match that of the control on which I am working
    Me.Style = Alarm.Style
    Me.WaveName = Alarm.WaveName
    Me.WaveSource = Alarm.WaveSource


End Sub
