Ora però sorge un altro problema, non mi funziona l'altra "via" dell' "IF", posto il codice:

codice:
 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
        ElseIf Forma <> 0 Then
            Dato2 = Val(InputBox("Inserire la base del rettangolo", "Messaggio per l'utente"))
            Dato23 = Val(InputBox("Inserire l'altezza del rettangolo", "Messaggio per l'utente"))
            Risultato2 = Dato2 * Dato23
            TextBox2.Text = Risultato2.ToString














        End If
    End Sub
Mi scuso per i miei eventuali errori o "ignoranza", sto cercando di studiare da solo senza conoscenze da un libro consigliatomi xD