Private Sub SetProp(ByVal obj As Object, ByVal Prop As String, ByVal Value _
      As Object)
        Dim a As Reflection.PropertyInfo
        a = obj.GetType().GetProperty(Prop)
        If a.CanWrite Then
            a.SetValue(obj, Value, Nothing)
        End If
    End Sub