': This form was generated by
': InForm - GUI library for QB64 - Beta version 8
': Fellippe Heitor, 2016-2018 - fellippe@qb64.org - @fellippeheitor
': https://github.com/FellippeHeitor/InForm
'-----------------------------------------------------------
SUB __UI_LoadForm

    DIM __UI_NewID AS LONG

    __UI_NewID = __UI_NewControl(__UI_Type_Form, "WordSearcher", 300, 300, 0, 0, 0)
    SetCaption __UI_NewID, "WordSearcher"
    Control(__UI_NewID).Font = SetFont("segoeui.ttf", 12)

    __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "WhatSearchTB", 120, 23, 90, 16, 0)
    SetCaption __UI_NewID, "WhatSearch"
    ToolTip(__UI_NewID) = "Type here the word to search"
    Control(__UI_NewID).HasBorder = True
    Control(__UI_NewID).CanHaveFocus = True
    Control(__UI_NewID).BorderSize = 1

    __UI_NewID = __UI_NewControl(__UI_Type_Button, "AsStartPartBT", 80, 23, 14, 55, 0)
    SetCaption __UI_NewID, "As Start part"
    ToolTip(__UI_NewID) = "this searches the word typed at Start of the words"
    Control(__UI_NewID).CanHaveFocus = True

    __UI_NewID = __UI_NewControl(__UI_Type_Button, "AsEndPartBT", 80, 23, 112, 55, 0)
    SetCaption __UI_NewID, "As End part"
    ToolTip(__UI_NewID) = "this seaches the word typed as the END of the words"
    Control(__UI_NewID).CanHaveFocus = True

    __UI_NewID = __UI_NewControl(__UI_Type_Button, "AsAnyPartBT", 80, 23, 210, 55, 0)
    SetCaption __UI_NewID, "As any part "
    ToolTip(__UI_NewID) = "this searches the typed word as part of the words"
    Control(__UI_NewID).CanHaveFocus = True

    __UI_NewID = __UI_NewControl(__UI_Type_ListBox, "WorsListFounded", 268, 174, 21, 98, 0)
    ToolTip(__UI_NewID) = "this shows the words founded with criterion of button clicked"
    Control(__UI_NewID).HasBorder = True
    Control(__UI_NewID).CanHaveFocus = True
    Control(__UI_NewID).BorderSize = 1

END SUB

SUB __UI_AssignIDs
    WordSearcher = __UI_GetID("WordSearcher")
    WhatSearchTB = __UI_GetID("WhatSearchTB")
    AsStartPartBT = __UI_GetID("AsStartPartBT")
    AsEndPartBT = __UI_GetID("AsEndPartBT")
    AsAnyPartBT = __UI_GetID("AsAnyPartBT")
    WorsListFounded = __UI_GetID("WorsListFounded")
END SUB