BOLA MOVIL

Se crea un formulario y se introduce el siguiente código

Dim hor As Integer

Dim ver As Integer

Dim dir As Integer

Private Sub Form_Load()

hor = 15

ver = 25

dir = 0

End Sub

Private Sub HScroll1_Change()

Timer1.Interval = HScroll1.Value

End Sub

Private Sub Timer1_Timer()

Shape1.Left = Shape1.Left + hor

Shape1.Top = Shape1.Top + ver

If Shape1.Left > (Form1.Width - Shape1.Width) Then

Shape1.Left = Form1.Width - Shape1.Width

hor = hor * (-1)

End If

If Shape1.Top > (Form1.Height - Shape1.Height) Then

Shape1.Top = Form1.Height - Shape1.Height

ver = ver * (-1)

End If

If Shape1.Left < 0 Then

Shape1.Left = 0

hor = hor * (-1)

End If

If Shape1.Top < 0 Then

ver = ver * (-1)

End If

End Sub