' Dynamic Block Type Check for Testing
Dim myDBRPC As DynamicBlockReferencePropertyCollection = myBlkRef.DynamicBlockReferencePropertyCollection
Dim myDBRP As DynamicBlockReferenceProperty
Dim list1 As String = ""
Dim list2 As String = ""
For Each myDBRP In myDBRPC
list1 = list1 + myDBRP.Value.ToString
list2 = list2 + myDBRP.PropertyName.ToString
Next