namespace ClassLibrary1
{    
    public class TVDatabase
        {
            public delegate void OnChangedHandler();
            static public event OnChangedHandler OnProgramsChanged = null;
            static public event OnChangedHandler OnRecordingsChanged = null;
            public TVDatabase()
            {
            }
            static TVDatabase()
            {
            }
            public void pChange()
            {
                OnProgramsChanged();
            }
            public void rChange()
            {
                OnRecordingsChanged();
            }
        }
    }

    Sub Test
        Dim t As New ClassLibrary1.TVDatabase
        AddHandler t.OnProgramsChanged, AddressOf t_OnProgramsChanged
        AddHandler t.OnRecordingsChanged, AddressOf t_OnRecordingsChanged
        t.pChange()
        t.rChange()
    End Sub
    Private Sub t_OnProgramsChanged()
        Debug.WriteLine("ProgrammChanged")
    End Sub
    Private Sub t_OnRecordingsChanged()
        Debug.WriteLine("RecordingChanged")
    End Sub