Área de un triangulo rectangulo en vb

Public Class FrmArea

    Private Sub CmdCalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdCalcular.Click
        TxtResultado.Text = (Val(TxtBase.Text) * Val(TxtAltura.Text)) / 2
    End Sub

    Private Sub CmdLimpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdLimpiar.Click
        TxtBase.Clear()
        TxtAltura.Clear()
        TxtResultado.Clear()
    End Sub

    Private Sub CmdCerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdCerrar.Click
        Me.Close()
    End Sub
End Class


Click aquí para descargar