Class MainWindow
    'Omtrek berekenen
    Dim miOmtrek As Integer
    Dim miOppervlakte As Integer
    Private Function berekenOmtrek() As String
        If IsNumeric(txtBreedte.Text & txtHoogte.Text) = True Then
            Dim ibreedte As Integer = txtBreedte.Text
            Dim ilengte As Integer = txtHoogte.Text
            miOmtrek = 2 * ilengte + 2 * ibreedte
        End If
        Return "Omtrek : " & miOmtrek
    End Function
    Private Function berekenOppervlakte() As String
        If IsNumeric(txtBreedte.Text & txtHoogte.Text) = True Then
            Dim ibreedte As Integer = txtBreedte.Text
            Dim ilengte As Integer = txtHoogte.Text
            miOppervlakte = ilengte * ibreedte
        End If
        Return "Oppervlakte : " & miOppervlakte
    End Function
    Private Sub berekening()
        If IsNumeric(txtBreedte.Text & txtHoogte.Text) = True Then
            MessageBox.Show("Alles is succesvol berekend")
            txbOmtrek.Text = berekenOmtrek()
            txbOpp.Text = berekenOppervlakte()
        ElseIf IsNumeric(txtBreedte.Text & txtHoogte.Text) = False Then
            txbOmtrek.Text = "Omtrek : "
            txbOpp.Text = "Oppervlakte : "
            MessageBox.Show("U dient een getal in te vullen")
        End If
    End Sub
    Private Sub btnBereken_Click(sender As System.Object, e As System.Windows.RoutedEventArgs) Handles btnBereken.Click
        berekening()
    End Sub
End Class