[Bug 53766] vbscript fails to handle SAFEARRAY assignment, access, UBounds, LBounds

[WineHQ Bugzilla]

https://bugs.winehq.org/show_bug.cgi?id=53766

--- Comment #10 from Jason Millard  ---
Just a follow up on this. Even though solved, this path is releasing an extra
reference for me.

Given this code:

Sub Table1_init
   drain.CreateSizedBallWithMass 50/2, 100

Dim BOT
   BOT = GetBalls

Dim Balls(20)
   Balls(5) = BOT(0)
End Sub

Prior to Table1_init, GetBalls Array contains 1 BallEx object with a m_dwRef
count of 2
After Table1_init, that BallEx object has a m_dwRef count of 1.

Tricky stuff to track down...