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é.