Vb.Net Alan Hesaplama Programı Yapımı

Merhaba Arkadaşlar,
Bu paylaşımımızda Vb.net de alan hesaplama programı yapmayı öğreticem.
Direk kodları veriyorum.Tasarımı aynı bu şekilde siz yaparsınız ;)

Public Class Form1

    Dim sonuc As Double

    Private Sub RadioButton1_CheckedChanged(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) HandlesRadioButton1.CheckedChanged

        TextBox1.Enabled = True

        TextBox2.Enabled = False

        TextBox3.Enabled = False

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) HandlesRadioButton2.CheckedChanged

        TextBox1.Enabled = True

        TextBox2.Enabled = True

        TextBox3.Enabled = False

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) HandlesRadioButton3.CheckedChanged

        TextBox3.Enabled = True

        TextBox1.Enabled = False

        TextBox2.Enabled = False

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

    End Sub

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

        If RadioButton1.Checked = True Then

            sonuc = TextBox1.Text ^ 2

            MsgBox("Karenin Alan = " & sonuc)

        End If

        If RadioButton2.Checked = True Then

            sonuc = TextBox1.Text * TextBox2.Text

            MsgBox("Diktörtgenin Alan = " & sonuc)

        End If

        If RadioButton3.Checked = True Then

            sonuc = 3.14 * (TextBox3.Text ^ 2)

            MsgBox("Dairenin Alan = " & sonuc)

        End If

    End Sub

End Class