Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   Dim r, alan As String
   r = TextBox1.Text
   alan = TextBox2.Text
   alan = 2 * 3.14 * r
   TextBox2.Text = Str(alan)
    End Sub