Duvida em vb.net

[macinblack20]

Bom dia, sou iniciante em vb, e pedia ajuda dos entendidos, é que tenho de fazer um programa onde introduzo os valores numa listbox, e depois nas outras tres listbox ele vai ordenar por ordem crescente num, noutra vai declarar os maiores valores acima da media aritmetica dos valores introduzidos e na ultima ver quais sao capicua... já consegui introduzir os numeros na primeira, mas usei uma funçao para retornar o vetor e os valores ao botao e não está a dar... alguma ajuda?

 

[nunoemanuel]

O que já fizeste, e qual é a tua dúvida ao certo ?

 

[macinblack20]

Spoiler: codigo

Public Class Form1

Private Sub btncalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncalcular.Click
Dim vet(50), media, cont As Integer


Number(vet, media, cont)

End Sub
Sub Number(ByVal vet() As Integer, ByVal media As Integer, ByVal cont As Integer)
Dim soma, x As Integer


lstnumeros.Items.Clear()
lstmaior.Items.Clear()
lstordenar.Items.Clear()
lstcapicua.Items.Clear()


Do While (soma <= 100)
vet(x) = Val(InputBox((x + 1) & " Elemento"))
lstnumeros.Items.Add(vet(x))
soma = soma + vet(x)
cont = cont + 1
Maior(vet, media, cont)
Loop
media = soma / cont






End Sub






Sub Maior(ByVal vet() As Integer, ByVal media As Integer, ByVal cont As Integer)
Dim x, y, aux1 As Integer






For y = 0 To y = cont
For x = To x = cont
lstmaior.Items.Add(vet(x))
aux1 = vet(x)
vet(y) = vet(x)
vet(y) = aux1






Next




Next








End Sub
End Class

Acho que já consegui resolver, a minha duvida era como ir buscar os dados a primeira listbox, usei um procedimento dentro, agora vou ordenar a segunda listbox...