Cara mencari Volume tabung menggunakan visual basic

Program mencari Volume Tabung dengan Visual basic
V = p x r2 x t

Dimana :V = volume tabung.
                p = phi ( 22/7 atau 3,14 ).
                r  = jari-jari alas.
                t  = tinggi tabung.
dan ini source codenya:

Const phi As Double = 3.14
Dim volumetabung As Double
Private Sub Command1_Click()
Text3 = (3.14 * Text1 * Text1 * Text2)
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

dan ini hasil nya:

Labels: PROGRAM

Thanks for reading Cara mencari Volume tabung menggunakan visual basic. Please share...!