Form1{
    :
    :
    /* ボタンの背後に表示するラベル */
    Label Label3 {
        X = 149;
        Y = 122;
        Width = 75;
        Height = 18;
        Visible = $FALSE;
        BgColor = $BLACK;
        TabIndex = 1;
    }

    Function OnGetFocus( e ) {
        flg = e.from.name;
        Label2.Value = flg;

        /* e.from でイベント発生元のオブジェクトが判断出来ます。
           classプロパティにて、オブジェクトのクラスを判断します。*/

        if(e.from.class == "Button" ) {

            /* ボタンのサイズより大きめにLabel3を表示します */
            Label3.Visible = $TRUE;
            Label3.X = e.from.X -1;
            Label3.Y = e.from.Y - 1;
            Label3.Width = e.from.Width + 2;
            Label3.Height = e.from.Height + 2;
        }else{
            Label3.Visible =$FALSE;
        }
    }
}