'ReDim' cannot change the number of dimensions of an array.

THIS IS MY CODE AND IM HAVING UPDATE VB 6.0 VB .NET
'ReDim' cannot change the number of dimensions of an array.
HELP PLEASE WHAT'S MISSING
THANKS ALL


Private Sub cmdStart_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdStart.Click


Dim aryCount() As Integer
Dim HiCard As Integer
Dim Decks As Integer

Select Case MachineType
Case 12, 15, 17 : HiCard = 6 : Decks = 0 : Devices = 2 : CardLength = 1 'craps
Case Else : Err.Raise(vbObjectError + 1086, , "" & MachineType)
End Select

If Devices = 0 Then
ReDim aryCount(HiCard + 4)
Else
ReDim aryCount(HiCard, Devices) <<<<<<<THIS IS THE ARRAY IM having the problem with>>>>>>>>>>
End If


THIS IS THE ERROR: I GET

'ReDim' cannot change the number of dimensions of an array.

Maybe it is:
ReDim aryCount(HiCard + 4)
You might not be able to ReDim to a runtime value?? Not sure, but it might be easier to use an array list.:D

From MSDN

Quote:

---

The ReDim statement is used to change the size of one or more dimensions of an array that has already been formally declared. ReDim cannot change the rank (the number of dimensions) of the array.

---

VBCrazyCoder

this code is fine!!!

ReDim aryCount(HiCard + 4)


it this code im having problems with

ReDim aryCount(HiCard, Devices)

thanks

You've have dimmed an array, then redimming it as a multidimentional array.

Dim the array initially with (,)

Also from MSDN:

If your array has two or more dimensions, you can change the size of only the last dimension if you use Preserve.