Παράδειγμα 1.

Βάλτε πάνω σε μια φόρμα τέσσερα labels όπως φαίνονται στην εικόνα. Ορίστε την ιδιότητα Caption σε Top, Left, Height, Width για τα τέσσερα αριστερά και κενό για τα υπόλοιπα. Αλλάξτε το όνομα για τα τέσσερα labels που βρίσκονται δεξιά σε lblTop, lblLeft, lblHeight και lblWidth.

Εισάγετε τον ακόλουθο κώδικα :

Private Sub Form_Resize()

LblTop.caption = Form1.Top

lblLeft.caption = Form1.Left

lblHeight.caption = Form1.Height

lblWidth.caption = Form1.Width

End Sub

Ο κώδικας αυτός εκτελείται κάθε φορά που συμβαίνει το Resize event για τη φόρμα μας. Κάθε φορά λοιπόν που αλλάζετε το μέγεθος της φόρμας τη στιγμή που τρέχετε το παράδειγμα θα βλέπετε πάνω στα labels τις τιμές για το ύψος, το πλάτος και τη θέση της φόρμας.