[Bug 5372] New: Visual Basic App: "Erase" statement has no effect (OLEAUT32 bug)

[Wine Bugs]

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

           Summary: Visual Basic App: "Erase" statement has no effect
                    (OLEAUT32 bug)
           Product: Wine
           Version: CVS
          Platform: Other
        OS/Version: Linux
            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, the "Erase" statement 
has no effect. It works with native oleaut32.

Bug 5217 is related.

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

Sub Main()

Dim A(1 To 100) As Integer
Dim B(1 To 100, 1 To 100) As Integer

Dim i As Integer, j As Integer

For i = 1 To 100
  A(i) = i
  For j = 1 To 100
    B(i, j) = i * 100 + j
  Next j
Next i

Erase A
Erase B

For i = 1 To 100
  If A(i) <> 0 Then
    MsgBox "A(" + Format$(i) + ") has not been set to the default value"
    Exit Sub
  End If
  For j = 1 To 100
    If B(i, j) <> 0 Then
      MsgBox "B(" + Format$(i) + ", " + Format$(j) + ") has not been set to 
the default value"
      Exit Sub
    End If
  Next j
Next i

MsgBox "Test passed"

End Sub

-- 
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.