vb6 - insert item in unsorted array -

vb6 - insert item in unsorted array -

please help me solve problem . im creating array programme in vb6 process this

enter size of array: 3 enter elements of array: 1 2 3 enter location of insertion: 2 enter item insert: 5

after insertion:

1 5 2 3

this code did

dim a(50) integer, n integer, loc integer, item integer, x integer private sub form_load() dim integer n = inputbox("enter size of array: ", "size") text1.text = "" = 1 n a(i) = inputbox("enter elemets of array: ", "elements") next location = inputbox("enter location of insertion: ", "location") item = inputbox("enter item insert: ", "item") unsorted = 1 n text1.text = text1.text + "" & a(i) list1.additem text1.text text1.text = "" next end sub public sub unsorted() while >= (location - 1) a(i + 1) = a(i) = + 1 wend a(location - 1) = item n = n + 1 end sub

im having error in while loop . please help me

something like:

option explicit private sub command1_click() dim intloop integer dim inta() integer redim inta(2) integer dim intindex integer dim intval integer inta(0) = 1 inta(1) = 2 inta(2) = 3 intindex = 2 intval = 5 inta = insertval(inta, intindex, intval) intloop = 0 ubound(inta) print cstr(intloop) & " : " & cstr(inta(intloop)) next intloop end sub private function insertval(intsrc() integer, intindex integer, intval integer) integer() dim intloop integer dim intadded integer dim intresult() integer redim intresult(ubound(intsrc) + 1) intadded = 0 intloop = 0 ubound(intsrc) if intloop = intindex intresult(intindex) = intval intadded = intadded + 1 end if intresult(intloop + intadded) = intsrc(intloop) next intloop insertval = intresult end function

arrays vb6