Bug Report about queue

[whoami186]

My english is pool. so...
Window 2003 server , vb6 sp6.
Make a Form , add follow code. presh "Command1" many time, it may crash.
My email: [e-mail]

Option Explicit

Private Sub Command1_Click()
Dim aPix
Dim oQ As New Queue
aPix = Array(19, 5)
oQ.Enqueue aPix
aPix = oQ.Dequeue
oQ.Enqueue Array(20, 5)
aPix = oQ.Dequeue
oQ.Enqueue Array(21, 5)
oQ.Enqueue Array(21, 4)
oQ.Enqueue Array(21, 6)
aPix = oQ.Dequeue
oQ.Enqueue Array(22, 5)
oQ.Enqueue Array(22, 4)
oQ.Enqueue Array(22, 6)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(21, 7)
oQ.Enqueue Array(22, 7)
aPix = oQ.Dequeue
oQ.Enqueue Array(23, 5)
oQ.Enqueue Array(23, 4)
aPix = oQ.Dequeue
oQ.Enqueue Array(23, 3)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(20, 8)
oQ.Enqueue Array(22, 8)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(24, 4)
aPix = oQ.Dequeue
oQ.Enqueue Array(24, 3)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(19, 8)
oQ.Enqueue Array(20, 9)
oQ.Enqueue Array(19, 9)
oQ.Enqueue Array(21, 9)
aPix = oQ.Dequeue
oQ.Enqueue Array(22, 9)
aPix = oQ.Dequeue
oQ.Enqueue Array(25, 4)
oQ.Enqueue Array(25, 3)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(20, 10)
oQ.Enqueue Array(19, 10)
oQ.Enqueue Array(21, 10)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(22, 10)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(26, 4)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(21, 11)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(22, 11)
aPix = oQ.Dequeue
oQ.Enqueue Array(23, 11)
aPix = oQ.Dequeue
oQ.Enqueue Array(27, 4)
oQ.Enqueue Array(27, 3)
oQ.Enqueue Array(27, 5)
aPix = oQ.Dequeue
oQ.Enqueue Array(22, 12)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(24, 11)
oQ.Enqueue Array(24, 12)
aPix = oQ.Dequeue
oQ.Enqueue Array(28, 4)
oQ.Enqueue Array(28, 3)
oQ.Enqueue Array(28, 5)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(27, 6)
oQ.Enqueue Array(28, 6)
aPix = oQ.Dequeue
oQ.Enqueue Array(23, 13)
aPix = oQ.Dequeue
oQ.Enqueue Array(25, 11)
oQ.Enqueue Array(25, 10)
oQ.Enqueue Array(25, 12)
aPix = oQ.Dequeue
oQ.Enqueue Array(24, 13)
oQ.Enqueue Array(25, 13)
aPix = oQ.Dequeue
oQ.Enqueue Array(29, 4)
oQ.Enqueue Array(29, 3)
oQ.Enqueue Array(29, 5)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(29, 6)
aPix = oQ.Dequeue
oQ.Enqueue Array(28, 7)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(23, 14)
oQ.Enqueue Array(22, 14)
oQ.Enqueue Array(24, 14)
aPix = oQ.Dequeue
oQ.Enqueue Array(26, 11)
oQ.Enqueue Array(26, 10)
oQ.Enqueue Array(26, 12)
aPix = oQ.Dequeue
oQ.Enqueue Array(26, 9)
aPix = oQ.Dequeue
oQ.Enqueue Array(26, 13)
aPix = oQ.Dequeue
oQ.Enqueue Array(25, 14)
aPix = oQ.Dequeue
oQ.Enqueue Array(26, 14)
aPix = oQ.Dequeue
oQ.Enqueue Array(30, 4)
oQ.Enqueue Array(30, 5)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(30, 6)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(27, 8)
aPix = oQ.Dequeue
oQ.Enqueue Array(23, 15)
oQ.Enqueue Array(22, 15)
oQ.Enqueue Array(24, 15)
aPix = oQ.Dequeue
oQ.Enqueue Array(21, 15)
aPix = oQ.Dequeue
oQ.Enqueue Array(25, 15)
aPix = oQ.Dequeue
oQ.Enqueue Array(27, 11)
oQ.Enqueue Array(27, 10)
aPix = oQ.Dequeue
oQ.Enqueue Array(27, 9)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(26, 8)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(26, 15)
aPix = oQ.Dequeue
oQ.Enqueue Array(28, 9)
oQ.Enqueue Array(28, 10)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
aPix = oQ.Dequeue
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(23, 16)
oQ.Enqueue Array(22, 16)
aPix = oQ.Dequeue
oQ.Enqueue Array(21, 16)
aPix = oQ.Dequeue
oQ.Enqueue Array(25, 16)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(26, 16)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
aPix = oQ.Dequeue
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(27, 15)
oQ.Enqueue Array(27, 16)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(22, 17)
aPix = oQ.Dequeue
oQ.Enqueue Array(21, 17)
aPix = oQ.Dequeue
oQ.Enqueue Array(20, 17)
aPix = oQ.Dequeue
oQ.Enqueue Array(25, 17)
oQ.Enqueue Array(26, 17)
aPix = oQ.Dequeue
oQ.Enqueue Array(27, 17)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(22, 18)
oQ.Enqueue Array(21, 18)
aPix = oQ.Dequeue
oQ.Enqueue Array(20, 18)
aPix = oQ.Dequeue
oQ.Enqueue Array(19, 17)
oQ.Enqueue Array(19, 18)
aPix = oQ.Dequeue
oQ.Enqueue Array(25, 18)
oQ.Enqueue Array(26, 18)
aPix = oQ.Dequeue
oQ.Enqueue Array(27, 18)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(22, 19)
oQ.Enqueue Array(21, 19)
oQ.Enqueue Array(23, 19)
aPix = oQ.Dequeue
oQ.Enqueue Array(20, 19)
aPix = oQ.Dequeue
oQ.Enqueue Array(19, 19)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(25, 19)
oQ.Enqueue Array(24, 19)
oQ.Enqueue Array(26, 19)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(22, 20)
oQ.Enqueue Array(21, 20)
oQ.Enqueue Array(23, 20)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
aPix = oQ.Dequeue
aPix = oQ.Dequeue
aPix = oQ.Dequeue
aPix = oQ.Dequeue
aPix = oQ.Dequeue
aPix = oQ.Dequeue
aPix = oQ.Dequeue
aPix = oQ.Dequeue
aPix = Array(21, 8)
oQ.Enqueue aPix
aPix = oQ.Dequeue
aPix = Array(21, 14)
oQ.Enqueue aPix
aPix = oQ.Dequeue
oQ.Enqueue Array(22, 13)
aPix = oQ.Dequeue
oQ.Enqueue Array(23, 12)
aPix = oQ.Dequeue
aPix = Array(22, 23)
oQ.Enqueue aPix
aPix = oQ.Dequeue
aPix = Array(25, 2)
oQ.Enqueue aPix
aPix = oQ.Dequeue
aPix = Array(26, 3)
oQ.Enqueue aPix
aPix = oQ.Dequeue
aPix = Array(27, 7)
oQ.Enqueue aPix
aPix = oQ.Dequeue
aPix = Array(27, 9)
oQ.Enqueue aPix
aPix = oQ.Dequeue
aPix = Array(28, 8)
oQ.Enqueue aPix
aPix = oQ.Dequeue
oQ.Enqueue Array(29, 8)
oQ.Enqueue Array(29, 7)
oQ.Enqueue Array(29, 9)
aPix = oQ.Dequeue
oQ.Enqueue Array(30, 8)
oQ.Enqueue Array(30, 9)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(29, 10)
oQ.Enqueue Array(30, 10)
aPix = oQ.Dequeue
oQ.Enqueue Array(31, 8)
oQ.Enqueue Array(31, 7)
oQ.Enqueue Array(31, 9)
aPix = oQ.Dequeue
oQ.Enqueue Array(31, 10)
aPix = oQ.Dequeue
oQ.Enqueue Array(29, 11)
oQ.Enqueue Array(28, 11)
aPix = oQ.Dequeue
oQ.Enqueue Array(31, 11)
aPix = oQ.Dequeue
oQ.Enqueue Array(32, 8)
oQ.Enqueue Array(32, 7)
aPix = oQ.Dequeue
oQ.Enqueue Array(31, 6)
oQ.Enqueue Array(32, 6)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(29, 12)
oQ.Enqueue Array(28, 12)
oQ.Enqueue Array(30, 12)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(31, 12)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
aPix = oQ.Dequeue
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(29, 13)
oQ.Enqueue Array(28, 13)
oQ.Enqueue Array(30, 13)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(29, 14)
oQ.Enqueue Array(28, 14)
oQ.Enqueue Array(30, 14)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(29, 15)
oQ.Enqueue Array(28, 15)
oQ.Enqueue Array(30, 15)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(29, 16)
oQ.Enqueue Array(28, 16)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(28, 17)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(29, 18)
aPix = oQ.Dequeue
oQ.Enqueue Array(30, 18)
oQ.Enqueue Array(29, 19)
oQ.Enqueue Array(28, 19)
oQ.Enqueue Array(30, 19)
aPix = oQ.Dequeue
oQ.Enqueue Array(31, 19)
aPix = oQ.Dequeue
oQ.Enqueue Array(29, 20)
oQ.Enqueue Array(28, 20)
oQ.Enqueue Array(30, 20)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(31, 20)
aPix = oQ.Dequeue
oQ.Enqueue Array(32, 19)
oQ.Enqueue Array(32, 20)
aPix = oQ.Dequeue
oQ.Enqueue Array(29, 21)
oQ.Enqueue Array(28, 21)
oQ.Enqueue Array(30, 21)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(31, 21)
aPix = oQ.Dequeue
oQ.Enqueue Array(32, 21)
aPix = oQ.Dequeue
oQ.Enqueue Array(33, 19)
oQ.Enqueue Array(33, 18)
oQ.Enqueue Array(33, 20)
aPix = oQ.Dequeue
oQ.Enqueue Array(33, 21)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
aPix = oQ.Dequeue
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(33, 22)
aPix = oQ.Dequeue
oQ.Enqueue Array(34, 19)
oQ.Enqueue Array(34, 18)
oQ.Enqueue Array(34, 20)
aPix = oQ.Dequeue
oQ.Enqueue Array(33, 17)
oQ.Enqueue Array(34, 17)
aPix = oQ.Dequeue
oQ.Enqueue Array(34, 21)
aPix = oQ.Dequeue
oQ.Enqueue Array(34, 22)
aPix = oQ.Dequeue
oQ.Enqueue Array(33, 23)
oQ.Enqueue Array(34, 23)
aPix = oQ.Dequeue
oQ.Enqueue Array(35, 19)
oQ.Enqueue Array(35, 18)
oQ.Enqueue Array(35, 20)
aPix = oQ.Dequeue
oQ.Enqueue Array(35, 17)
aPix = oQ.Dequeue
oQ.Enqueue Array(35, 21)
aPix = oQ.Dequeue
oQ.Enqueue Array(33, 16)
oQ.Enqueue Array(34, 16)
aPix = oQ.Dequeue
oQ.Enqueue Array(35, 16)
aPix = oQ.Dequeue
oQ.Enqueue Array(35, 22)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(36, 19)
oQ.Enqueue Array(36, 18)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
aPix = oQ.Dequeue
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(33, 15)
oQ.Enqueue Array(34, 15)
aPix = oQ.Dequeue
oQ.Enqueue Array(35, 15)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(37, 19)
oQ.Enqueue Array(37, 18)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(34, 14)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(36, 14)
aPix = oQ.Dequeue
oQ.Enqueue Array(38, 18)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(34, 13)
oQ.Enqueue Array(35, 13)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(34, 12)
oQ.Enqueue Array(35, 12)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(34, 11)
aPix = oQ.Dequeue
oQ.Enqueue Array(36, 11)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
aPix = Array(28, 18)
oQ.Enqueue aPix
aPix = oQ.Dequeue
aPix = Array(29, 17)
oQ.Enqueue aPix
aPix = oQ.Dequeue
aPix = Array(30, 7)
oQ.Enqueue aPix
aPix = oQ.Dequeue
aPix = Array(30, 11)
oQ.Enqueue aPix
aPix = oQ.Dequeue
aPix = Array(31, 4)
oQ.Enqueue aPix
aPix = oQ.Dequeue
aPix = Array(32, 2)
oQ.Enqueue aPix
aPix = oQ.Dequeue
aPix = Array(32, 22)
oQ.Enqueue aPix
aPix = oQ.Dequeue
aPix = Array(33, 6)
oQ.Enqueue aPix
aPix = oQ.Dequeue
aPix = Array(35, 11)
oQ.Enqueue aPix
aPix = oQ.Dequeue
oQ.Enqueue Array(36, 12)
aPix = oQ.Dequeue
oQ.Enqueue Array(36, 13)
aPix = oQ.Dequeue
aPix = Array(35, 14)
oQ.Enqueue aPix
aPix = oQ.Dequeue
aPix = Array(36, 15)
oQ.Enqueue aPix
aPix = oQ.Dequeue
oQ.Enqueue Array(36, 16)
aPix = oQ.Dequeue
aPix = Array(37, 8)
oQ.Enqueue aPix
aPix = oQ.Dequeue
aPix = Array(38, 19)
oQ.Enqueue aPix
aPix = oQ.Dequeue
aPix = Array(38, 22)
oQ.Enqueue aPix
aPix = oQ.Dequeue
aPix = Array(39, 8)
oQ.Enqueue aPix
aPix = oQ.Dequeue
aPix = Array(39, 23)
oQ.Enqueue aPix
aPix = oQ.Dequeue
aPix = Array(40, 12)
oQ.Enqueue aPix
aPix = oQ.Dequeue
aPix = Array(40, 18)
oQ.Enqueue aPix
aPix = oQ.Dequeue
aPix = Array(42, 9)
oQ.Enqueue aPix
aPix = oQ.Dequeue
oQ.Enqueue Array(43, 9)
aPix = oQ.Dequeue
oQ.Enqueue Array(44, 9)
aPix = oQ.Dequeue
aPix = Array(42, 20)
oQ.Enqueue aPix
aPix = oQ.Dequeue
aPix = Array(46, 8)
oQ.Enqueue aPix
aPix = oQ.Dequeue
oQ.Enqueue Array(47, 8)
oQ.Enqueue Array(47, 7)
aPix = oQ.Dequeue
oQ.Enqueue Array(48, 7)
aPix = oQ.Dequeue
oQ.Enqueue Array(48, 6)
aPix = oQ.Dequeue
oQ.Enqueue Array(49, 7)
oQ.Enqueue Array(49, 6)
oQ.Enqueue Array(49, 8)
aPix = oQ.Dequeue
oQ.Enqueue Array(49, 5)
aPix = oQ.Dequeue
oQ.Enqueue Array(50, 7)
oQ.Enqueue Array(50, 6)
oQ.Enqueue Array(50, 8)
aPix = oQ.Dequeue
oQ.Enqueue Array(50, 5)
aPix = oQ.Dequeue
oQ.Enqueue Array(50, 9)
aPix = oQ.Dequeue
oQ.Enqueue Array(49, 4)
oQ.Enqueue Array(50, 4)
aPix = oQ.Dequeue
oQ.Enqueue Array(51, 7)
oQ.Enqueue Array(51, 6)
oQ.Enqueue Array(51, 8)
aPix = oQ.Dequeue
oQ.Enqueue Array(51, 5)
aPix = oQ.Dequeue
oQ.Enqueue Array(51, 9)
aPix = oQ.Dequeue
oQ.Enqueue Array(51, 4)
aPix = oQ.Dequeue
oQ.Enqueue Array(50, 10)
oQ.Enqueue Array(49, 10)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(52, 6)
aPix = oQ.Dequeue
oQ.Enqueue Array(52, 5)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(52, 4)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(49, 11)
oQ.Enqueue Array(51, 11)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
aPix = oQ.Dequeue
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(49, 12)
oQ.Enqueue Array(50, 12)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(49, 13)
oQ.Enqueue Array(48, 13)
oQ.Enqueue Array(50, 13)
aPix = oQ.Dequeue
oQ.Enqueue Array(51, 13)
aPix = oQ.Dequeue
oQ.Enqueue Array(49, 14)
oQ.Enqueue Array(48, 14)
oQ.Enqueue Array(50, 14)
aPix = oQ.Dequeue
aPix = oQ.Dequeue
aPix = oQ.Dequeue
aPix = oQ.Dequeue
oQ.Enqueue Array(49, 15)
oQ.Enqueue Array(48, 15)
aPix = oQ.Dequeue

oQ.Clear
Set oQ = Nothing
End Sub

[Kelly Ethridge]

Hello!

Yes, you are correct. I found the bug and will be releasing a new version with a few additional fixes.

Thank you for your help!

Kelly

[thraka]

Hmm what was the bug kelly?

[Kelly Ethridge]

Thraka! Good to see you again. What's new?

The bug was my failure to zero out all the memory in the internal array when normalizing the data into a contiguous block. It would end up leaving the last array element intact so ended up with 2 references to the same referenced data. It would only affect reference types, so the sample code of using arrays showed the error. It was very silly hehe.

Kelly