Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles MyBase.Load
        Const PI As Double = System.Math.PI
        Me.Text = System.Math.Atan(1) * 180 / PI
    End Sub

fg viperbone