Valeu Galera mas ja consegui segue o codigo

Module TrocaNumeros
    Dim r As New Random
    Dim sortnum As Integer
    Dim LsT As New List(Of Integer)
    Public Sub TroNum()
        LsT.Clear()
        While LsT.Count < 15
            sortnum = r.Next(1, 90 + 1) [ô]Aqui gera 15 numeros aleatorios.
            While LsT.Contains(sortnum) [ô] aqui verifica se tem numeros duplicados na list se tiver excluir e gera outro.
                sortnum = r.Next(1, 90 + 1)
            End While
            LsT.Add(sortnum) [ô]Aqui add na list os numeros.
            Form1.ListView1.Items.Add(sortnum)
        End While


        LsT.Sort() [ô]aqui coloca em ordem crecente.

        Form1.cAR1nUM1.Text = LsT.Item(0)
        Form1.cAR1nUM2.Text = LsT.Item(1)
        Form1.cAR1nUM3.Text = LsT.Item(2)
        Form1.cAR1nUM4.Text = LsT.Item(3)
        Form1.cAR1nUM5.Text = LsT.Item(4)
        Form1.cAR1nUM6.Text = LsT.Item(5)
        Form1.cAR1nUM7.Text = LsT.Item(6)
        Form1.cAR1nUM8.Text = LsT.Item(7)
        Form1.cAR1nUM9.Text = LsT.Item(8)
        Form1.cAR1nUM10.Text = LsT.Item(9)
        Form1.cAR1nUM11.Text = LsT.Item(10)
        Form1.cAR1nUM12.Text = LsT.Item(11)
        Form1.cAR1nUM13.Text = LsT.Item(12)
        Form1.cAR1nUM14.Text = LsT.Item(13)
        Form1.cAR1nUM15.Text = LsT.Item(14)


    End Sub
End Module

Rogério D Pinto