LaBolaScrolls

Fes el programa de sota.

Aquí podeu provar les propietats dels objectes de posició, amplada i alçada:

EsqBola.Text = Bola.Location.X (o Bola.Left)

DaltBola.Text = Bola.Location.Y (o Bola.Top)

Si voleu 4 etiquetes:

(DrtBola.Text = Bola.Location.X + Bola.Width)

(BaixBola.Text = Bola.Location.Y + Bola.Height()

Bola.Left = HScrollBar1.value

Bola.Top = VScrollBar1.value

També podeu fer servir:

Bola.Right

Bola.Bottom

Tingueu en compte que els valors Maximum de les barres de desplaçament han de casar amb l'amplada (form1.width) i alçada (form1.height) del formulari.