Public Class PI
    Dim inn As Integer
    Dim ut As Integer
    Dim pi As String
    Dim r2 As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        pi = "PI|"
        r2 = "^2"
        inn = Val(ip.Text())
        ut = (inn ^ 2 * 3.14159265)
        sv.Text() = ut
        pir2.Text = (pi & inn & r2)
    End Sub
    Private Sub ContextMenuStrip1_Opening(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs)
        inn = Val(ip.Text())
        ut = (inn ^ 2 * 3.14159265)
        sv.Text() = inn
    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        Dim nr As Integer
        nr = (nr + 1)
        My.Computer.FileSystem.WriteAllText("log" & nr & ".txt", Val(sv.Text), False)
    End Sub
End Class