Vectores en Visual Basic (Una ayudita)

[msnonlygames]

Hola tengo un par de problemitas que necesito hacer, la primera es que tengo que llenar dos vectores(listbox) "A" y "B" digamos 20 numeros en cada vector, y sumar sus digitos paralelamente en un vector "C" aca una imagen para que me capten la idea:


Uso estos codigos para llenar los valores random

Const h = 20
Dim listanum(h) As Short
-----------------------------
Sub llenarNumeros()
Randomize()
For x = 1 To h
listanum(x) = CInt(Rnd() * 10)
Next
End Sub
-----------------------------------
Sub mostrarNumeros()
lstlistanum.Items.Clear()
For x = 1 To h
lstlistanum.Items.Add(listanum(x))
Next
End Sub


Mi Otro problemita es llenar un vector con ciertos valores, y poner en un textbox o un lbl el numero mayor y la ubicacion o posicion del numero mayor.
aqui la imagen para que me entiendan (:




Bueno espero su ayuda . Gracias de antemano (: