Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer, S As Integer

a = Val(Text1)

b = Val(Text2)

c = Val(Text3)

S = Sqr((Val(a + b + c) / Val(2)) * Val(a + b + c))

Text4 = S

End Sub

 

Private Sub Command2_Click()

Text1 = ""

Text2 = ""

Text3 = ""

End Sub

 

Private Sub Command3_Click()

End

End Sub