[VB.NET] Dato da InputBox??

[federik95]

Tutto il codice si trova nei post precedenti. Riassumo il tutto, sto cercando di creare un programma che permette di scegliere se ottenere il perimetro e l'area di un quadrato o rettangolo e calcolarle.
La scelta di queste due figure avviene attraverso un TextBox in cui se si digita lo "0" "imbocca la via" per calcolare il quadrato, mentre se si digita l'1 "imbocca" quella per risolvere il rettangolo. Il problema è che sia se metto lo 0 che l'1 segue un unica via che è quella per il quadrato.

Copio il codice:

  Public Class Form1    'INPUT
    Dim Forma As Double
    Dim Dato1 As Double
    Dim Dato2 As Double
    Dim Dato23 As Double
    'Output
    Dim Risultato As Double
    Dim Risultato2 As Double






    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged


    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Forma = 0 Then
            Dato1 = Val(InputBox("Inserire il numero", "Messaggio per l'utente"))
            Risultato = Dato1 * 4
            TextBox2.Text = Risultato.ToString
        Else
            Try
                Dato2 = Val(InputBox("Inserire la base del rettangolo", "Messaggio per l'utente"))
                Dato23 = Val(InputBox("Inserire l'altezza del rettangolo", "Messaggio per l'utente"))
                Debug.Print("Dato2: " & Dato2.ToString & " -Dato23: " & Dato23.ToString)
                Risultato2 = Dato2 * Dato23
                Debug.Print("Risultato2: " & Risultato2.ToString)
                TextBox2.Text = Risultato2.ToString
            Catch ex As Exception
                Debug.Print(ex.ToString)
            End Try














        End If
    End Sub


    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged


    End Sub
End Class

Chiaro?