//AB/ OBJECTDEF
Object
    //AB-StoreStart
    Function SelectColor Returns Integer
        Integer iRgbColor bColorSelected

        Get Show_Dialog To bColorSelected
        If (bColorSelected = True) Begin
            Get SelectedColor To iRgbColor
        End

        Function_Return iRgbColor
    End_Function // SelectColor
    //AB-StoreEnd
End_Object