//AB/ OBJECTDEF
Object
    //AB-StoreStart
    Procedure DoCreateControl
        // How to add items (tabs) to the control
        Send Add_Item Msg_None "Tab 0"
        Set Tooltip_value 0 To "Tab 0 tooltip"
        //Set Value item 0 to "Tab 0"
        //Set ItemColor item 0 to clMaroon
        //Set ItemTextColor item 0 to clWhite 
        //Set ToolTip_Value item 0 to "Tab 0 tooltip"
        //Set item_shadow_state item 0 to False
        //Set aux_value item 0 to Msg_None
    End_Procedure
    Send DoCreateControl

    // Events
    // The OnPaint message is sent when the system or another application 
    // makes a request to paint a portion of an application's window.
    //Procedure OnPaint
    //End_Procedure

    // The OnMouseMove message is posted to a window when the cursor moves. 
    // If the mouse is not captured, the message is posted to the window 
    // that contains the cursor. Otherwise, the message is posted to 
    // the window that has captured the mouse.
    //Procedure OnMouseMove Integer iKeys Integer iXPos Integer iYPos 
    //End_Procedure

    // The OnMouseLeave message is posted to a window when the cursor 
    // leaves the client area of the window
    //Procedure OnMouseLeave
    //End_Procedure

    // The OnItemChanging message is sent when user pressed mouse button 
    // to change current selected item.
    //Procedure OnItemChanging Integer iNewItem Integer iOldItem - Procedure
    //End_Procedure

    // The OnItemChanged event is sent when tab button actually changed 
    // by user action.
    //Procedure OnItemChanged Integer iNewItem Integer iOldItem - Procedure
    //End_Procedure

    // The OnClick event will be sent when user clicked on appropriate tab. 
    // Tab item number will be passed as parameter. If you will set item 
    // message (see Add_Item method) and Aux_Value property, by default 
    // this event will send specified message to the object, specified in 
    // Aux_Value property.
    //Procedure OnClick Integer iItem 
    //End_Procedure

    //AB-StoreEnd
End_Object