Códigos Para Visual Basic

MsgBox "El amor y los sueños son la única forma de saber que sigues vivo"
End Sub
-poner mensaje

Private Sub Command2_Click()
Me.Hide
Form2.Show

-boton siguiente

PrivateSub Command3_Click()

End

End Sub
-boton salir

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

-boton borrar

Private Sub Command1_Click()Text3.Text = Val(Text1.Text) + Val(Text2.Text)
MsgBox "Se ha realizado la suma, para realizar otra suma oprime el botón BORRAR"
End Sub

-boton calcular

Private Sub Command1_Click()
Text3.Text =Val(Text1.Text) + Val(Text2.Text)
MsgBox "Se ha realizado la suma, para realizar otra suma oprime el botton BORRAR"
End Sub

-sumar

Private Sub Command2_Click()
Text3.Text = Val(Text1.Text) -Val(Text2.Text)
MsgBox "Se ha realizado la resta, para realizar otra suma oprime el botton BORRAR"
End Sub

-restar

Private Sub Command3_Click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)MsgBox "Se ha realizado la multiplicacion, para realizar otra suma oprime el botton BORRAR"
End Sub

-multiplicar

Private Sub Command4_Click()
Text3.Text = Val(Text1.Text) / Val(Text2.Text)MsgBox "Se ha realizado la divicion, para realizar otra suma oprime el botton BORRAR"
End Sub

Private Sub Command4_Click()
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
MsgBox "Se ha realizado ladivicion, para realizar otra suma oprime el botton BORRAR"
End Sub
-divicion

Private Sub Command5_Click()
Text3.Text = Val(Text1.Text) ^ Val(Text2.Text)
MsgBox "Se ha realizado laexponenciación, para realizar otra suma oprime el botton BORRAR"
End Sub

-exponensacion

Private Sub Command6_Click()
Text3.Text = Sqr (Val(Text1.Text)) Val(Text2.Text)
MsgBox "Se ha realizado la raizcuadrada, para realizar otra suma oprime el botton BORRAR"
End Sub

-raiz cuadrada

Private Sub Option1_Click()
Text3.Text = Sqr(Val(Text1.Text) + Val(Text2.Text))
End Sub

-hipotenusa...