4. PROGRAMA DE PRACTICA

• programa donde meva dos imagenes picturebox con do while . Una imagen de arriva hacia abajo y otra de derecha a izquierda, al mismo tiempo.
  

1.planeacion:
*mover dos imagenes: de abajo a rriva y de derecha a izquierda.
*moverlas con un do en un comandbutton.
1.1lista de chequeo
*declarar variable
*darles valor
*operar

2. interfaz grafica

3.programacion de eventos:


Como nos piden usar el do while escribimos el siguiente codigo en el comandbutton. los dos picture les cambiamos el nombre por cara1 y cara. para mayor comodidad al programar.

Private Sub Command1_Click()
Do While (cara.Left + cara.Width) <>Form1.ScaleHeight
cara.Left = cara.Left + 1
Loop

Do While (cara1.Top + cara1.Height) <> Form1.ScaleLeft
cara1.Top = cara1.Top + 1
Loop
MsgBox "iniciar de nuevo"
cara.Left = 0cara1.Top = 0
End Sub

hemos terminado nuestro programa.