Private Sub Command1_Click()

Dim res As Long, retorno

For n = 1 To 10

res = Text1 * n

retorno = Chr(13) & Chr(10)

Text2 = Text2 & Text1 & "x" & n & "=" & res & retorno

Next n

End Sub

el botón Nueva Tabla

Private Sub Command2_Click()

Text1 = ""

Text2 = ""

Text1. SetFocus

End Sub

El Botón Salir

Private Sub Command3_Click()

If MsgBox ("Por Favor Confirma Si Ya Te Quieres Ir", vbYesNo, "Qué Ya Te Quieres Ir?")End

Else

Cancel = 1

EndIf

End Sub

Juan Luis Guerra - Que me des tu cariño

Tony Dize - El Doctorado (Official Video) (HD)

Tony Dize - Entre Los Dos (Official Video)

Private Sub Timer1_Timer()
Label2.Caption = Time
Label4.Caption = Date
End Sub

Dim draw As Boolean 'Declaramos una variable booleanaHacemos clic sobre el formulario para ver el área donde se escribe el código.buscamos en los eventos el evento MOUSE DOWN y escribimos:Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)draw = True 'Estamos dibujandoCurrentX = X 'carga en la variable, la ubicación en la coordenada XCurrentY = Y 'carga en la variable, la ubicación en la coordenada YEnd SubHacemos clic sobre el formulario para ver el área donde se escribe el código.Buscamos en los eventos el evento MOUSE MOVE y escribimos:Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)If draw Then Line -(X, Y) 'Si la variable draw esta verdadera 'dibuja cada uno de los puntosEnd SubHacemos clic sobre el formulario para ver el área donde se escribe el código.Buscamos en los eventos el evento MOUSE UP y escrbimos:Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)draw = False 'Si draw es falsa detiene el dibujoEnd Su

Embarazo, bebes y mas...

los embarazos son la etapa mas hermosa para una mujer, apesar de los dolores que este conlleva
las mujeres somos capaces de sopotar cualquier cosa por eso somos los seras mas valientes...
los bebes son esenciales ellos son el futuro del mundo su dulsura, su ternura, y su inocensia son hace adorarlos mas..A partir de los seis meses, el bebé empezará a sentir curiosidad por todo lo que le rodea y a acompañar esa curiosidad con pequeños logros físicos. Empezará a reptar, luego a gatear, a sentarse solito y más tarde intentará ponerse de pie. En esta etapa de descubrimientos, el suelo es el mejor espacio de juegos para el bebé.