Public Sub SetProperty( _ ByVal bstrPropertyName As String, _ ByVal vtValue As Variant _ )
GeneralDataParams Object