lopezatienza.es

Primeramente crearemos nuestro proyecto.

Le cambiamos el tamaño de nuestro Form1 a: 435; 320

Agregaremos 2 botones llamados "btnon" y "btnoff".

Agregaremos un PictureBox llamado "balon" con la imagen que queramos.

Agregamos un Timer al que llamamos "Timer".

Introduciremos el siguiente código a nuestro "Form1.vb"

Public Class Form1

    Dim sube As Boolean = True

    Dim dcha As Boolean = True

    Private Sub btnon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnon.Click

        Timer.Enabled = True

    End Sub

    Private Sub Timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer.Tick

        Select Case True

            Case balon.Top >= 0 And sube 'si la derecha es mayor de 0 y sube es verdadero ke siga subiendo

                balon.Top -= 20

            Case balon.Top <= Me.Height And Not sube

                balon.Top += 20

        End Select

        Select Case True

            Case balon.Left <= Me.Width And dcha

                balon.Left += 20

            Case balon.Left >= 0 And Not dcha

                balon.Left -= 20

        End Select

        Select Case True

            Case balon.Top <= 0 'si llega arriba

                sube = False

            Case balon.Top >= Me.Height - balon.Height - 35 'ME representa el formulario

                sube = True

        End Select

        Select Case True

            Case balon.Left <= 0 ' si llega a la pared

                dcha = True

            Case balon.Left >= Me.Width - balon.Width - 10

                dcha = False

        End Select

    End Sub

    Private Sub btnoff_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnoff.Click

        Timer.Enabled = False

    End Sub

End Class

No olvideis enlazar las llamadas a los eventos Click de los botones y el evento Tick del Timer.

Un saludo.