Form Form2 {
    …
    /*MouseWheelイベント利用設定*/ 
    UseMouseWheel = $ANYTIME;
    … 
    ImageButton ImageButton1 {
        …
        
        /* 表示されている画像の縦横がImagelabelの縦横に追従する */
        Resize = $KEEPRATIO;
        ImageWidth = Width;
        ImageHeight = Height;
        SetImage("Water lilies.jpg");
    }
    
    Function OnMouseWheel( e ) {
        var scale;
        /* e.deltaはホイールの回転量、上方向なら+、負方向なら- */
        /* 回転が上方向ならスケールを0.1拡大、逆なら0.1縮小 */
        if(e.delta >= 0) scale = round(HorizontalScale + 0.1,1);
        else scale = round(HorizontalScale - 0.1,1);
        
        try{
            /* スケールをそれぞれのプロパティに設定 */
            HorizontalScale = scale;
            VerticalScale = scale;
            FontScale = scale;
        }
        catch(e){
            MessageBox("0以下、10以上の倍率は指定できません");
        }
        …
    }
}