Utilice la programación vb para simular el proceso de ascenso de las burbujas.
Intervalo = 0
End Sub
Sub privado Form_Load()
Forma1.Forma = 2
Forma1.Top = Forma1.Altura :Shape1.Width = 600: Shape1.Height = 600
End Sub
Private Sub Timer1_Timer()
Shape .Top - 5
Forma1.Ancho = Forma1.Ancho + 1
Forma1.Alto = Forma1.Alto + 1
Si Forma1.Top < 0 Entonces Forma1.Top = Forma1.Forma1. Ancho = 600: Forma1.Alto = 600
Fin Sub