Hola
No se cual puede ser el problema, yo he echo una pequeña prueba con el código mas reducido y me funciona perfectamente, no tengo tiempo para analizar todo tu código, ademas no es VB6, supongo que será .NET al cual aún no estoy acostumbrado, te pongo el código que he creado de ejemplo, solo tiene un Form1 y un List1
Código:
Private Sub Form_Load()
Dim Array1(10) As Integer
Dim Array2(10) As Integer
Dim Array3(10) As Single
x = 9
For i = 0 To 9
Array1(i) = i + 1
Array2(i) = x + 1
x = x - 1
Next i
For i = 0 To 9
Array3(i) = (Array1(i) + Array2(i)) / 2
List1.AddItem Array3(i)
Next i
End Sub
Espero que te sirva de algo.
--Saludos--