Public Class AnswerChangedEventArgs Inherits EventArgs Private _answer As String Public Sub New(answer As String) _answer = answer End Sub Public ReadOnly Property Answer As String Get Return _answer End Get End Property End Class