Private Sub Command1_Click()
Dim A As Double
Dim sonuc As Double
Text1.Text = A
A = InputBox("A değerini giriniz.")
sonuc = (A ^ 0.5)
Text1.Text = A
Text2.Text = sonuc
End Sub

Private Sub Command2_Click()
End
End Sub