[Bug 5217] New: Visual Basic App: Runtime error after "redim preserve" (OLEAUT32 bug)

[Wine Bugs]

http://bugs.winehq.org/show_bug.cgi?id=5217

Summary: Visual Basic App: Runtime error after "redim preserve"
                    (OLEAUT32 bug)
           Product: Wine
           Version: CVS
          Platform: Other
        OS/Version: other
            Status: NEW
          Keywords: download, source
          Severity: normal
          Priority: P2
         Component: wine-ole
        AssignedTo: [e-mail]
        ReportedBy: [e-mail]

This Visual Basic code works fine on Windows. On Wine, this message appears:
"Run-time error '9': Subscript out of range". It also works with native oleaut32.

Global A() As Integer

Sub Main()

ReDim Preserve A(1 To 3, 1 To 4) As Integer
A(1, 1) = 100
A(3, 4) = 200

ReDim Preserve A(1 To 3, 1 To 5) As Integer
A(1, 1) = 300
A(3, 5) = 400

MsgBox "OK"

End Sub

This code creates a two-dimensional array and resizes the second dimension of
the array. The content of the array is copied to the resized array ("preserve"
keyword).

I'll attach the executable. It needs MSVBVM60.DLL. Download it here:
http://www.microsoft.com/downloads/details.aspx?FamilyID=7b9ba261-7a9c-43e7-...