Public Class info
       Private _sender As Object
       Private _information As Object
 
       Public Sub New(sender As Object, information As Object)
            _sender = sender
            _information = information
       End Sub
 
       Public ReadOnly Property sender() As Object
           Get
              Return _sender
           End Get
       End Property
 
       Public ReadOnly Property information() As Object
           Get
              Return _information
           End Get
       End Property
   End Class