Dim expected As FarPoint.Win.Spread.DrawingSpace.SpreadCameraShape = DirectCast(Activator.CreateInstance(GetType(FarPoint.Win.Spread.DrawingSpace.SpreadCameraShape)), FarPoint.Win.Spread.DrawingSpace.SpreadCameraShape)
expected.ShadowColor = Color.AliceBlue
expected.ShadowOffsetX = 20.0F
expected.ShadowOffsetY = 20.0F
expected.AlphaBlendShadowColor = 100
expected.CanRenderText = True
expected.Formula = "A1:A2"
Dim fc = New System.Runtime.Serialization.FormatterConverter()
Dim info = New System.Runtime.Serialization.SerializationInfo(GetType(FarPoint.Win.Spread.DrawingSpace.PSShape), fc)
Dim context = New System.Runtime.Serialization.StreamingContext()
expected.GetObjectData(info, context)
Dim param As Object() = New Object() {info, context}
'Creates a new shape object from serialization.
Dim actual As FarPoint.Win.Spread.DrawingSpace.SpreadCameraShape = DirectCast(Activator.CreateInstance(GetType(FarPoint.Win.Spread.DrawingSpace.SpreadCameraShape), param), FarPoint.Win.Spread.DrawingSpace.SpreadCameraShape)
fpSpread1.Sheets(0).AddShape(actual, 0, 0)
ListBox1.Items.Add(actual.ShadowColor.ToString())