Utilice la programación vb para simular el proceso de ascenso de las burbujas.

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