DefLng A-Z Dim GlobalArray(47) As Long Dim NewGlobalArray(47) As Long Public ShiftRight As Long Public Function ShiftArray(ShiftRight As Long) As Boolean Dim i As Long Dim x As Long If ShiftRight = 0 Then ShiftArray = False Exit Function End If For i = 0 To 47 If i <= 47 Then x = i + Shiftright If x > 47 Then Exit For Else NewGlobalStateArray(x) = GlobalArray(i) End If End If Next i ShiftArray = True End Function
It this function returns True, I display both the GlobalArray and the NewGlobal array in a TextBox for verification. That part seems to be working so I didn't post it.
It seems that I'm always running into simple problems that should be obvious, but they are not obvious to me. Please help if you can.
This post has been edited by StanHelton: 26 December 2007 - 01:51 PM