Disporre i numeri in ordine crescente

[pietro09]

una soluzione veloce (da controllare)

Ho 4 TextBox di partenza, nominati TextBox1...TextBox4
e 4 TextBox di arrivo, nominati TextBox5...TextBox8

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim n As Integer = 0
        Dim valori(3) As Double
        n = 1
        For i As Integer = 1 To 4
            valori(i - 1) = CDbl(DirectCast(Me.Controls.Find("TextBox" & i, False)(0), TextBox).Text.Replace("."c, ","c))
        Next

        Array.Sort(valori)

        n = 5
        For Each v As Double In valori
            DirectCast(Me.Controls.Find("TextBox" & n, False)(0), TextBox).Text = v.ToString
            n += 1
        Next

    End Sub