salve... ho dei problemi nel senso che:

generato questo codice il programma non mi riordina nulla
--------------------------------------------------
Public Class Form1
Public Sub Ordina(ByVal x As Integer, ByVal y As Integer)
Dim temp As Integer
If x > y Then
temp = x
x = y
y = temp
End If
End Sub

Dim a As Integer
Dim b As Integer
Dim c As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
a = Val(txtA.Text)
b = Val(txtB.Text)
c = Val(txtC.Text)
Ordina(a, b)
Ordina(a, c)
Ordina(b, c)
txtA.Text = CStr(a)
txtB.Text = CStr(b)
txtC.Text = CStr(c)
End Sub


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub

End Class
----------------------------------