Private iTop As Integer
----
 
Public Property Get Top()
    Top = iTop
End Property
----
 
Public Sub SetMeasures(Left As Integer, Top As Integer, Width As Integer, _
  Height As Integer)
[...]
    iTop = Top
[...]
End Sub

Dim OutputFrame As New OFrame
----
 
    With OutputFrame
        BackBuffer.SetForeColor .Color
        BackBuffer.DrawBox .Left, .Top, .Left + .Width, .Height + .Top
   End With