2 tane TextBox ve Bir CommandButon ekleyin ve kodları yazın.
Private Sub Command1_Click()
Const pi = 3.14
Text2.Text = Text1.Text * pi * 2
End Sub
Kullanım : Yarıcapı Text1 ' e yazın ve Command1 ' e tıklayın.Sonuc Text2 ' de gozukecektir

__________________