RgnChange example for Visual Basic

The following code for the RgnChange event updates a text box using the GetRgnArea method. You can test it by adding a text box for the lesson described in Outlining, Dragging, and Pasting a Region.

Private Sub Lead1_RgnChange()
    MyText = "Number of pixels in region: "
    MyText = MyText + CStr(Lead1.GetRgnArea)
    Text1.Text = MyText
End Sub