Programa que Calcula la hipotenusa de un triangulo

Es un programa muy simple utilizando las formulas correspondientes para su proceso  esta realizado en .net

Public Class Form20

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        REM Declarar todas las variables

        Dim cat1, cat2, hipotenusa As Integer

        REM Validar objetos de entrada

        cat1 = ocat1.Text

        cat2 = ocat2.Text

        REM Proceso

        hipotenusa = (cat1 ^ 2) + (cat2 ^ 2)

        REM Asignar respuesta a objeto de salida

        Label5.Text = hipotenusa

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        'Para salir se utiliza la funcion

        If (MsgBox("Esta seguro que desea salir?", MsgBoxStyle.YesNo, "Advertencia")) = MsgBoxResult.Yes Then

            MsgBox("Gracias")

            Close()

        End If

    End Sub

End Class