GP Fault Setting Property Value to Array of Custom Data Type

WORKAROUND

To avoid receiving a GP fault, set the value of a non-array temporary variable to the value of the variable custom data type, and then set the value of the name of the property procedure equal to the value of this temporary variable.

Microsoft provides examples of Visual Basic procedures for illustration only, without warranty either expressed or implied, including but not limited to the implied warranties of merchantability and/or fitness for a particular purpose. This Visual Basic procedure is provided "as is" and Microsoft does not guarantee that it can be used in all situations. Microsoft does not support modifications of this procedure to suit customer requirements for a particular purpose. Note that a line that is preceded by an apostrophe introduces a comment in the code--comments are provided to explain what the code is doing at a particular point in the procedure. Note also that an underscore character (_) indicates that code continues from one line to the next. You can type lines that contain this character as one logical line or you can divide the lines of code and include the line continuation character. For more information about Visual Basic for Applications programming style, see the "Programming Style in This Manual" section in the "Document Conventions" section of the Visual Basic "User's Guide."

     Type Bdata
      B1 As Integer
      B2 As Integer
   End Type

   Property Let Bprop(A As Integer, B As Bdata)
      MsgBox A
   End Property

   Sub Test()
      ' Dimension B3 as Bdata type
      Dim B3(0 To 2) As Bdata
      ' Dimension temporary variable BTemp as Bdata type
      Dim BTemp As Bdata
      ' Set BTemp to value of B3(1)
      LSet BTemp = B3(1)
      ' Set property procedure Bprop(1) to value of BTemp
      Bprop(1) = BTemp
   End Sub