N
nak
Oops you got there first I didn't even notice! doh!
Although, why redim out of curiosity?
Sub Main()
Dim p() As Integer
ReDim p(6)
partition(p, 6, 6, 0)
Console.WriteLine("Done...")
Console.ReadLine()
End Sub
Although, why redim out of curiosity?