SetRgnMagicWand example for Visual Basic

Private Sub LEAD1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    LEAD1.ScaleMode = 1
    LEAD1.SetRgnMagicWand x, y, 10, L_RGN_SET
    LEAD1.RgnFrameType = 2
    LEAD1.ScaleMode = 3
End Sub