[code] Private Sub pb1_Click(sender As Object, e As EventArgs) Handles picturebox1.Click
        a = Val(TextBox1.Text)
        b = Val(TextBox2.Text)
        c = Val(TextBox3.Text)
        If b < a Then
            t = a
            a = b
            b = a
        ElseIf c < a Then
            t = a
            a = c
            c = t
        ElseIf c < b Then
            t = b
            b = c
            c = t
        End If
        Print(a, "<", b, "<", c)