[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: wine-bugs at winehq.org
        ReportedBy: hallo at michael-kaufmann.ch


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-9117-f673077ffb3c&DisplayLang=en

-- 
Configure bugmail: http://bugs.winehq.org/userprefs.cgi?tab=email
------- You are receiving this mail because: -------
You are the assignee for the bug, or are watching the assignee.