Private Sub CommandButton1_Click()

a = lado * lado
MsgBox "nivelacion de BRAYAN"
End Sub

cmdcalcular_Click()
Txtarea.Text = (Val(Txtlado.Text) * Val(Txtlado.Text)) / 2

Private Sub CALCULAR_Click()
A1 = Val(L1) * Val(L1)

MsgBox ("DIEGO FERNANDO VARGAS" & TextBox1.Text)

End Sub

Private Sub UserForm_Click()

End Sub

NIVELACION DE INFORMATICA

Private Sub CommandButton1_Click()

MsgBox ("Nivelacion 1004sebastian ortiz ortiz")

R1 = A1 * A2

End Sub

NIVELACIÓN DE JHOSEPH MAZUERA

Private Sub CommandButton1_Click()
MsgBox ("nivelacion de jhoseph mazuera 1004")
r1 = a1 * a1

End Sub

Private Sub DIAMETRO_Click()
A1 = Val(D1) * 3
End Sub

Private Sub CommandButton1_Click()
T2 = "MAICOL SARMIENTO"
End Sub