this may help point you towards what you want
VB Code:
Dim newrange As String = "" Dim l_ctr As Integer = 0 Dim l_e As IEnumerator = l_myarraylist.GetEnumerator() l_e.reset() While l_e.MoveNext If l_ctr > 3 Then 'add code to do whatever is needed with the 3 elements l_ctr = 0 End If newrange &= Ctype(l_e.current,String) & "," l_ctr = l_ctr + 1 End While





Reply With Quote