': This form was generated by ': InForm - GUI library for QB64 - v1.1 ': Fellippe Heitor, 2016-2019 - fellippe@qb64.org - @fellippeheitor ': https://github.com/FellippeHeitor/InForm '----------------------------------------------------------- SUB __UI_LoadForm DIM __UI_NewID AS LONG __UI_NewID = __UI_NewControl(__UI_Type_Form, "HC", 1203, 1008, 0, 0, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Horoscope Calculator" ToolTip(__UI_NewID) = "segoeui.ttf" Control(__UI_NewID).Font = SetFont("segoeui.ttf", 12) __UI_NewID = __UI_NewControl(__UI_Type_Frame, "Chartowner", 747, 61, 23, 21, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Chart owner" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 8 Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Frame, "Sun", 227, 121, 23, 110, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Sun" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 4 Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Frame, "moon", 227, 121, 255, 110, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Moon" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 4 Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Frame, "AscendantMC", 227, 121, 487, 110, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Ascendant and MC" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 4 Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Frame, "mercury", 227, 121, 719, 110, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Mercury" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 4 Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Frame, "venus", 227, 121, 951, 110, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Venus" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 5 Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Frame, "mars", 227, 121, 23, 238, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Mars" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 4 Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Frame, "jupiter", 227, 121, 255, 238, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Jupiter" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 4 Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Frame, "saturn", 227, 121, 487, 238, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Saturn" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 4 Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Frame, "chiron", 227, 121, 719, 238, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Chiron" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 4 Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Frame, "uranus", 227, 121, 951, 238, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Uranus" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 4 Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Frame, "neptune", 227, 121, 23, 366, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Neptune" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 4 Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Frame, "pluto", 227, 121, 255, 366, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Pluto" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 4 Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Frame, "moon_node", 231, 121, 487, 366, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Southern Moon Node" Text(__UI_NewID) = "InForm\92;n\92;nBEGIN CONTROL DATA\92;n------------------------------------------------------------\92;n65\92;noooQ000040`10`DHRE6KcTSU0l004@P80000no_300006E6K\92;U6L`E6BUU6M\92;n_9gno?00\92;4S<;0`LUMfKUEGJ^@7MV1no1Dno%0`?\92;n------------------------------------------------------------\92;nEND CONTROL DATA\92;nControls in this block: Label39;" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 4 Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Frame, "lilith", 227, 121, 726, 366, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Lilith" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 4 Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "TextBox1", 193, 22, 15, 32, __UI_GetID("Chartowner")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "TextBox1" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "__name", 121, 21, 15, 10, __UI_GetID("Chartowner")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Name" Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "TextBox2", 120, 22, 213, 32, __UI_GetID("Chartowner")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "TextBox1" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "birthdate", 121, 21, 213, 10, __UI_GetID("Chartowner")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Birth date" Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "TextBox3", 120, 22, 338, 32, __UI_GetID("Chartowner")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "TextBox1" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "birthtime", 121, 21, 338, 10, __UI_GetID("Chartowner")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Birth time" Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "TextBox4", 269, 22, 463, 32, __UI_GetID("Chartowner")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "TextBox1" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "birthplace", 121, 21, 463, 10, __UI_GetID("Chartowner")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Birth place" Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_DropdownList, "DropdownList_sunHouse", 200, 23, 13, 34, __UI_GetID("Sun")) __UI_RegisterResult = 0 AddItem __UI_NewID, "1" AddItem __UI_NewID, "2" AddItem __UI_NewID, "3" AddItem __UI_NewID, "4" AddItem __UI_NewID, "5" AddItem __UI_NewID, "6" AddItem __UI_NewID, "7" AddItem __UI_NewID, "8" AddItem __UI_NewID, "9" AddItem __UI_NewID, "10" AddItem __UI_NewID, "11" AddItem __UI_NewID, "12" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 1 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "sun_House", 150, 21, 13, 11, __UI_GetID("Sun")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "What house is the Sun in?" Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_DropdownList, "DropdownList_sunSign", 200, 23, 13, 85, __UI_GetID("Sun")) __UI_RegisterResult = 0 AddItem __UI_NewID, "Aries" AddItem __UI_NewID, "Taurus" AddItem __UI_NewID, "Gemini" AddItem __UI_NewID, "Cancer" AddItem __UI_NewID, "Leo" AddItem __UI_NewID, "Virgo" AddItem __UI_NewID, "Libra" AddItem __UI_NewID, "Scorpio" AddItem __UI_NewID, "Sagittarius" AddItem __UI_NewID, "Capricorn" AddItem __UI_NewID, "Aquarius" AddItem __UI_NewID, " Pisces" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 1 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "sun_Sign", 150, 21, 13, 62, __UI_GetID("Sun")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "What sign is the Sun in?" Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_DropdownList, "DropdownList_moonHouse", 200, 23, 13, 35, __UI_GetID("moon")) __UI_RegisterResult = 0 AddItem __UI_NewID, "1" AddItem __UI_NewID, "2" AddItem __UI_NewID, "3" AddItem __UI_NewID, "4" AddItem __UI_NewID, "5" AddItem __UI_NewID, "6" AddItem __UI_NewID, "7" AddItem __UI_NewID, "8" AddItem __UI_NewID, "9" AddItem __UI_NewID, "10" AddItem __UI_NewID, "11" AddItem __UI_NewID, "12" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 1 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "moon_House", 150, 21, 13, 12, __UI_GetID("moon")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "What house is the Moon in?" Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "moon_Sign", 150, 21, 13, 63, __UI_GetID("moon")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "What sign is the Moon in?" Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_DropdownList, "DropdownList_moonSign", 200, 23, 13, 85, __UI_GetID("moon")) __UI_RegisterResult = 0 AddItem __UI_NewID, "Aries" AddItem __UI_NewID, "Taurus" AddItem __UI_NewID, "Gemini" AddItem __UI_NewID, "Cancer" AddItem __UI_NewID, "Leo" AddItem __UI_NewID, "Virgo" AddItem __UI_NewID, "Libra" AddItem __UI_NewID, "Scorpio" AddItem __UI_NewID, "Sagittarius" AddItem __UI_NewID, "Capricorn" AddItem __UI_NewID, "Aquarius" AddItem __UI_NewID, " Pisces" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 1 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_DropdownList, "DropdownList_ascendantSign", 200, 23, 11, 35, __UI_GetID("AscendantMC")) __UI_RegisterResult = 0 AddItem __UI_NewID, "Aries" AddItem __UI_NewID, "Taurus" AddItem __UI_NewID, "Gemini" AddItem __UI_NewID, "Cancer" AddItem __UI_NewID, "Leo" AddItem __UI_NewID, "Virgo" AddItem __UI_NewID, "Libra" AddItem __UI_NewID, "Scorpio" AddItem __UI_NewID, "Sagittarius" AddItem __UI_NewID, "Capricorn" AddItem __UI_NewID, "Aquarius" AddItem __UI_NewID, " Pisces" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 1 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "ascendant_Sign", 175, 21, 11, 12, __UI_GetID("AscendantMC")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "What sign is the Ascendant in?" Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "mc_Sign", 150, 21, 11, 63, __UI_GetID("AscendantMC")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "What sign is the MC in?" Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_DropdownList, "DropdownList_MCSign", 200, 23, 11, 85, __UI_GetID("AscendantMC")) __UI_RegisterResult = 0 AddItem __UI_NewID, "Aries" AddItem __UI_NewID, "Taurus" AddItem __UI_NewID, "Gemini" AddItem __UI_NewID, "Cancer" AddItem __UI_NewID, "Leo" AddItem __UI_NewID, "Virgo" AddItem __UI_NewID, "Libra" AddItem __UI_NewID, "Scorpio" AddItem __UI_NewID, "Sagittarius" AddItem __UI_NewID, "Capricorn" AddItem __UI_NewID, "Aquarius" AddItem __UI_NewID, " Pisces" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 1 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_DropdownList, "DropdownList_mercuryHouse", 200, 23, 12, 31, __UI_GetID("mercury")) __UI_RegisterResult = 0 AddItem __UI_NewID, "1" AddItem __UI_NewID, "2" AddItem __UI_NewID, "3" AddItem __UI_NewID, "4" AddItem __UI_NewID, "5" AddItem __UI_NewID, "6" AddItem __UI_NewID, "7" AddItem __UI_NewID, "8" AddItem __UI_NewID, "9" AddItem __UI_NewID, "10" AddItem __UI_NewID, "11" AddItem __UI_NewID, "12" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 1 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "mercury_House", 150, 21, 12, 8, __UI_GetID("mercury")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "What house is Mercury in?" Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_DropdownList, "DropdownList_mercurySign", 200, 23, 12, 82, __UI_GetID("mercury")) __UI_RegisterResult = 0 AddItem __UI_NewID, "Aries" AddItem __UI_NewID, "Taurus" AddItem __UI_NewID, "Gemini" AddItem __UI_NewID, "Cancer" AddItem __UI_NewID, "Leo" AddItem __UI_NewID, "Virgo" AddItem __UI_NewID, "Libra" AddItem __UI_NewID, "Scorpio" AddItem __UI_NewID, "Sagittarius" AddItem __UI_NewID, "Capricorn" AddItem __UI_NewID, "Aquarius" AddItem __UI_NewID, " Pisces" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 1 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "mercury_Sign", 150, 21, 12, 59, __UI_GetID("mercury")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "What sign is Mercury in?" Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_DropdownList, "DropdownList_venusHouse", 200, 23, 11, 31, __UI_GetID("venus")) __UI_RegisterResult = 0 AddItem __UI_NewID, "1" AddItem __UI_NewID, "2" AddItem __UI_NewID, "3" AddItem __UI_NewID, "4" AddItem __UI_NewID, "5" AddItem __UI_NewID, "6" AddItem __UI_NewID, "7" AddItem __UI_NewID, "8" AddItem __UI_NewID, "9" AddItem __UI_NewID, "10" AddItem __UI_NewID, "11" AddItem __UI_NewID, "12" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 1 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "venus_House", 150, 21, 11, 8, __UI_GetID("venus")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "What house is Venus in?" Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "venus_Sign", 150, 21, 11, 59, __UI_GetID("venus")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "What sign is Venus in?" Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_DropdownList, "DropdownList_venusSign", 200, 23, 11, 81, __UI_GetID("venus")) __UI_RegisterResult = 0 AddItem __UI_NewID, "Aries" AddItem __UI_NewID, "Taurus" AddItem __UI_NewID, "Gemini" AddItem __UI_NewID, "Cancer" AddItem __UI_NewID, "Leo" AddItem __UI_NewID, "Virgo" AddItem __UI_NewID, "Libra" AddItem __UI_NewID, "Scorpio" AddItem __UI_NewID, "Sagittarius" AddItem __UI_NewID, "Capricorn" AddItem __UI_NewID, "Aquarius" AddItem __UI_NewID, " Pisces" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 1 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_DropdownList, "DropdownList_marsHouse", 200, 23, 11, 33, __UI_GetID("mars")) __UI_RegisterResult = 0 AddItem __UI_NewID, "1" AddItem __UI_NewID, "2" AddItem __UI_NewID, "3" AddItem __UI_NewID, "4" AddItem __UI_NewID, "5" AddItem __UI_NewID, "6" AddItem __UI_NewID, "7" AddItem __UI_NewID, "8" AddItem __UI_NewID, "9" AddItem __UI_NewID, "10" AddItem __UI_NewID, "11" AddItem __UI_NewID, "12" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 1 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "mars_House", 175, 21, 11, 10, __UI_GetID("mars")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "What house is Mars in?" Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "mars_Sign", 150, 21, 11, 61, __UI_GetID("mars")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "What sign is Mars in?" Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_DropdownList, "DropdownList_marsSign", 200, 23, 11, 83, __UI_GetID("mars")) __UI_RegisterResult = 0 AddItem __UI_NewID, "Aries" AddItem __UI_NewID, "Taurus" AddItem __UI_NewID, "Gemini" AddItem __UI_NewID, "Cancer" AddItem __UI_NewID, "Leo" AddItem __UI_NewID, "Virgo" AddItem __UI_NewID, "Libra" AddItem __UI_NewID, "Scorpio" AddItem __UI_NewID, "Sagittarius" AddItem __UI_NewID, "Capricorn" AddItem __UI_NewID, "Aquarius" AddItem __UI_NewID, " Pisces" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 1 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_DropdownList, "DropdownList_jupiterHouse", 200, 23, 11, 35, __UI_GetID("jupiter")) __UI_RegisterResult = 0 AddItem __UI_NewID, "1" AddItem __UI_NewID, "2" AddItem __UI_NewID, "3" AddItem __UI_NewID, "4" AddItem __UI_NewID, "5" AddItem __UI_NewID, "6" AddItem __UI_NewID, "7" AddItem __UI_NewID, "8" AddItem __UI_NewID, "9" AddItem __UI_NewID, "10" AddItem __UI_NewID, "11" AddItem __UI_NewID, "12" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 1 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "jupiter_House", 150, 21, 11, 12, __UI_GetID("jupiter")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "What house is Jupiter in?" Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_DropdownList, "DropdownList_jupiterSign", 200, 23, 11, 86, __UI_GetID("jupiter")) __UI_RegisterResult = 0 AddItem __UI_NewID, "Aries" AddItem __UI_NewID, "Taurus" AddItem __UI_NewID, "Gemini" AddItem __UI_NewID, "Cancer" AddItem __UI_NewID, "Leo" AddItem __UI_NewID, "Virgo" AddItem __UI_NewID, "Libra" AddItem __UI_NewID, "Scorpio" AddItem __UI_NewID, "Sagittarius" AddItem __UI_NewID, "Capricorn" AddItem __UI_NewID, "Aquarius" AddItem __UI_NewID, " Pisces" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 1 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "jupiter_Sign", 150, 21, 11, 63, __UI_GetID("jupiter")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "What sign is Jupiter in?" Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_DropdownList, "DropdownList_saturnHouse", 200, 23, 12, 36, __UI_GetID("saturn")) __UI_RegisterResult = 0 AddItem __UI_NewID, "1" AddItem __UI_NewID, "2" AddItem __UI_NewID, "3" AddItem __UI_NewID, "4" AddItem __UI_NewID, "5" AddItem __UI_NewID, "6" AddItem __UI_NewID, "7" AddItem __UI_NewID, "8" AddItem __UI_NewID, "9" AddItem __UI_NewID, "10" AddItem __UI_NewID, "11" AddItem __UI_NewID, "12" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 1 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "saturn_House", 150, 21, 12, 13, __UI_GetID("saturn")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "What house is Saturn in?" Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "saturn_Sign", 150, 21, 12, 64, __UI_GetID("saturn")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "What sign is Saturn in?" Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_DropdownList, "DropdownList_saturnSign", 200, 23, 12, 86, __UI_GetID("saturn")) __UI_RegisterResult = 0 AddItem __UI_NewID, "Aries" AddItem __UI_NewID, "Taurus" AddItem __UI_NewID, "Gemini" AddItem __UI_NewID, "Cancer" AddItem __UI_NewID, "Leo" AddItem __UI_NewID, "Virgo" AddItem __UI_NewID, "Libra" AddItem __UI_NewID, "Scorpio" AddItem __UI_NewID, "Sagittarius" AddItem __UI_NewID, "Capricorn" AddItem __UI_NewID, "Aquarius" AddItem __UI_NewID, " Pisces" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 1 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_DropdownList, "DropdownList_chironHouse", 200, 23, 11, 37, __UI_GetID("chiron")) __UI_RegisterResult = 0 AddItem __UI_NewID, "1" AddItem __UI_NewID, "2" AddItem __UI_NewID, "3" AddItem __UI_NewID, "4" AddItem __UI_NewID, "5" AddItem __UI_NewID, "6" AddItem __UI_NewID, "7" AddItem __UI_NewID, "8" AddItem __UI_NewID, "9" AddItem __UI_NewID, "10" AddItem __UI_NewID, "11" AddItem __UI_NewID, "12" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 1 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "chiron_House", 144, 21, 11, 14, __UI_GetID("chiron")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "What house is Chiron in?" Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "chiron_Sign", 150, 21, 11, 65, __UI_GetID("chiron")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "What sign is Chiron in?" Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_DropdownList, "DropdownList_chironSign", 200, 23, 11, 87, __UI_GetID("chiron")) __UI_RegisterResult = 0 AddItem __UI_NewID, "Aries" AddItem __UI_NewID, "Taurus" AddItem __UI_NewID, "Gemini" AddItem __UI_NewID, "Cancer" AddItem __UI_NewID, "Leo" AddItem __UI_NewID, "Virgo" AddItem __UI_NewID, "Libra" AddItem __UI_NewID, "Scorpio" AddItem __UI_NewID, "Sagittarius" AddItem __UI_NewID, "Capricorn" AddItem __UI_NewID, "Aquarius" AddItem __UI_NewID, " Pisces" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 1 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_DropdownList, "DropdownList_uranusHouse", 200, 23, 10, 34, __UI_GetID("uranus")) __UI_RegisterResult = 0 AddItem __UI_NewID, "1" AddItem __UI_NewID, "2" AddItem __UI_NewID, "3" AddItem __UI_NewID, "4" AddItem __UI_NewID, "5" AddItem __UI_NewID, "6" AddItem __UI_NewID, "7" AddItem __UI_NewID, "8" AddItem __UI_NewID, "9" AddItem __UI_NewID, "10" AddItem __UI_NewID, "11" AddItem __UI_NewID, "12" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 1 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "uranus_House", 150, 21, 10, 11, __UI_GetID("uranus")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "What house is Uranus in?" Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_DropdownList, "DropdownList_uranusSign", 200, 23, 10, 85, __UI_GetID("uranus")) __UI_RegisterResult = 0 AddItem __UI_NewID, "Aries" AddItem __UI_NewID, "Taurus" AddItem __UI_NewID, "Gemini" AddItem __UI_NewID, "Cancer" AddItem __UI_NewID, "Leo" AddItem __UI_NewID, "Virgo" AddItem __UI_NewID, "Libra" AddItem __UI_NewID, "Scorpio" AddItem __UI_NewID, "Sagittarius" AddItem __UI_NewID, "Capricorn" AddItem __UI_NewID, "Aquarius" AddItem __UI_NewID, " Pisces" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 1 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "uranus_Sign", 150, 21, 10, 62, __UI_GetID("uranus")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "What sign is Uranus in?" Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_DropdownList, "DropdownList_neptuneHouse", 200, 23, 12, 35, __UI_GetID("neptune")) __UI_RegisterResult = 0 AddItem __UI_NewID, "1" AddItem __UI_NewID, "2" AddItem __UI_NewID, "3" AddItem __UI_NewID, "4" AddItem __UI_NewID, "5" AddItem __UI_NewID, "6" AddItem __UI_NewID, "7" AddItem __UI_NewID, "8" AddItem __UI_NewID, "9" AddItem __UI_NewID, "10" AddItem __UI_NewID, "11" AddItem __UI_NewID, "12" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 1 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "neptune_House", 150, 21, 12, 12, __UI_GetID("neptune")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "What house is Neptune in?" Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "neptune_Sign", 150, 21, 12, 63, __UI_GetID("neptune")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "What sign is Neptune in?" Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_DropdownList, "DropdownList_neptuneSign", 200, 23, 12, 89, __UI_GetID("neptune")) __UI_RegisterResult = 0 AddItem __UI_NewID, "Aries" AddItem __UI_NewID, "Taurus" AddItem __UI_NewID, "Gemini" AddItem __UI_NewID, "Cancer" AddItem __UI_NewID, "Leo" AddItem __UI_NewID, "Virgo" AddItem __UI_NewID, "Libra" AddItem __UI_NewID, "Scorpio" AddItem __UI_NewID, "Sagittarius" AddItem __UI_NewID, "Capricorn" AddItem __UI_NewID, "Aquarius" AddItem __UI_NewID, " Pisces" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 1 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_DropdownList, "DropdownList_plutoHouse", 200, 23, 12, 35, __UI_GetID("pluto")) __UI_RegisterResult = 0 AddItem __UI_NewID, "1" AddItem __UI_NewID, "2" AddItem __UI_NewID, "3" AddItem __UI_NewID, "4" AddItem __UI_NewID, "5" AddItem __UI_NewID, "6" AddItem __UI_NewID, "7" AddItem __UI_NewID, "8" AddItem __UI_NewID, "9" AddItem __UI_NewID, "10" AddItem __UI_NewID, "11" AddItem __UI_NewID, "12" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 1 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "pluto_House", 175, 21, 12, 12, __UI_GetID("pluto")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "What house is Pluto in?" Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "pluto_Sign", 150, 21, 12, 63, __UI_GetID("pluto")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "What sign is Pluto in?" Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_DropdownList, "DropdownList_plutoSign", 200, 23, 12, 85, __UI_GetID("pluto")) __UI_RegisterResult = 0 AddItem __UI_NewID, "Aries" AddItem __UI_NewID, "Taurus" AddItem __UI_NewID, "Gemini" AddItem __UI_NewID, "Cancer" AddItem __UI_NewID, "Leo" AddItem __UI_NewID, "Virgo" AddItem __UI_NewID, "Libra" AddItem __UI_NewID, "Scorpio" AddItem __UI_NewID, "Sagittarius" AddItem __UI_NewID, "Capricorn" AddItem __UI_NewID, "Aquarius" AddItem __UI_NewID, " Pisces" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 1 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_DropdownList, "DropdownList_moonnodeHouse", 200, 23, 10, 33, __UI_GetID("moon_node")) __UI_RegisterResult = 0 AddItem __UI_NewID, "1" AddItem __UI_NewID, "2" AddItem __UI_NewID, "3" AddItem __UI_NewID, "4" AddItem __UI_NewID, "5" AddItem __UI_NewID, "6" AddItem __UI_NewID, "7" AddItem __UI_NewID, "8" AddItem __UI_NewID, "9" AddItem __UI_NewID, "10" AddItem __UI_NewID, "11" AddItem __UI_NewID, "12" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 1 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "moonnode_House", 225, 23, 10, 10, __UI_GetID("moon_node")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "What house is the south. Moon Node in?" Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "moonnode_Sign", 221, 23, 10, 61, __UI_GetID("moon_node")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "What sign is the south. Moon Node in?" Text(__UI_NewID) = "Aries; Taurus; Gemini; Cancer; Leo; Virgo; Libra; Scorpio; Sagittarius; Capricorn; Aquarius; Pisces\92;n" Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_DropdownList, "DropdownList_moonnodeSign", 200, 23, 10, 83, __UI_GetID("moon_node")) __UI_RegisterResult = 0 AddItem __UI_NewID, "Aries" AddItem __UI_NewID, "Taurus" AddItem __UI_NewID, "Gemini" AddItem __UI_NewID, "Cancer" AddItem __UI_NewID, "Leo" AddItem __UI_NewID, "Virgo" AddItem __UI_NewID, "Libra" AddItem __UI_NewID, "Scorpio" AddItem __UI_NewID, "Sagittarius" AddItem __UI_NewID, "Capricorn" AddItem __UI_NewID, "Aquarius" AddItem __UI_NewID, " Pisces" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 1 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_DropdownList, "DropdownList_lilithHouse", 200, 23, 11, 34, __UI_GetID("lilith")) __UI_RegisterResult = 0 AddItem __UI_NewID, "1" AddItem __UI_NewID, "2" AddItem __UI_NewID, "3" AddItem __UI_NewID, "4" AddItem __UI_NewID, "5" AddItem __UI_NewID, "6" AddItem __UI_NewID, "7" AddItem __UI_NewID, "8" AddItem __UI_NewID, "9" AddItem __UI_NewID, "10" AddItem __UI_NewID, "11" AddItem __UI_NewID, "12" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 1 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "lilith_House", 175, 23, 11, 10, __UI_GetID("lilith")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "What house is Lilith in?" Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "lilith_Sign", 150, 23, 11, 62, __UI_GetID("lilith")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "What sign is Lilith in?" Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_DropdownList, "DropdownList_lilithSign", 200, 23, 11, 84, __UI_GetID("lilith")) __UI_RegisterResult = 0 AddItem __UI_NewID, "Aries" AddItem __UI_NewID, "Taurus" AddItem __UI_NewID, "Gemini" AddItem __UI_NewID, "Cancer" AddItem __UI_NewID, "Leo" AddItem __UI_NewID, "Virgo" AddItem __UI_NewID, "Libra" AddItem __UI_NewID, "Scorpio" AddItem __UI_NewID, "Sagittarius" AddItem __UI_NewID, "Capricorn" AddItem __UI_NewID, "Aquarius" AddItem __UI_NewID, " Pisces" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 1 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Button, "Button1", 216, 120, 962, 364, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "GO!" Control(__UI_NewID).Font = SetFont("seguibl.ttf", 70) Control(__UI_NewID).CanHaveFocus = True __UI_NewID = __UI_NewControl(__UI_Type_PictureBox, "PictureBox1", 34, 34, 775, 46, 0) __UI_RegisterResult = 0 LoadImage Control(__UI_NewID), "D:\Familie\Horoskope\Horoskoprechnung\QB64.jpg" Control(__UI_NewID).Stretch = True Control(__UI_NewID).Font = SetFont("", 16) Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "Label33", 84, 22, 775, 12, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Written in" Control(__UI_NewID).Font = SetFont("seguibl.ttf", 12) Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_PictureBox, "PictureBox2", 125, 95,-134,-74, __UI_GetID("venus")) __UI_RegisterResult = 0 LoadImage Control(__UI_NewID), "D:\Familie\Horoskope\Horoskoprechnung\InForm.jpg" Control(__UI_NewID).Stretch = True Control(__UI_NewID).Font = SetFont("", 16) Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_PictureBox, "PictureBox3", 45, 34, 814, 46, 0) __UI_RegisterResult = 0 LoadImage Control(__UI_NewID), "D:\Familie\Horoskope\Horoskoprechnung\InForm.jpg" Control(__UI_NewID).Stretch = True Control(__UI_NewID).Font = SetFont("", 16) Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "Label34", 87, 13, 775, 31, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "QB64 InForm" Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "Label35", 150, 15, 865, 15, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Special thanks to" Control(__UI_NewID).Font = SetFont("seguibl.ttf", 12) Control(__UI_NewID).VAlign = __UI_Middle Control(__UI_NewID).WordWrap = True __UI_NewID = __UI_NewControl(__UI_Type_Label, "Label36", 150, 34, 866, 34, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Luke, TempodiBasic, bplus, Ashish, and CodeHunter" Control(__UI_NewID).Font = SetFont("seguiemj.ttf", 12) Control(__UI_NewID).VAlign = __UI_Middle Control(__UI_NewID).WordWrap = True __UI_NewID = __UI_NewControl(__UI_Type_Label, "Label37", 150, 21, 867, 68, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "for coding help." Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "Label38", 150, 15, 1028, 15, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Special thanks to" Control(__UI_NewID).Font = SetFont("seguibl.ttf", 12) Control(__UI_NewID).VAlign = __UI_Middle Control(__UI_NewID).WordWrap = True __UI_NewID = __UI_NewControl(__UI_Type_Label, "Label39", 150, 23, 1027, 35, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "FellippeHeitor" Control(__UI_NewID).Font = SetFont("seguiemj.ttf", 12) Control(__UI_NewID).VAlign = __UI_Middle Control(__UI_NewID).WordWrap = True __UI_NewID = __UI_NewControl(__UI_Type_Label, "Label40", 150, 30, 1028, 58, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "for maintaining a friendly mood on the Discord server." Control(__UI_NewID).VAlign = __UI_Middle Control(__UI_NewID).WordWrap = True __UI_NewID = __UI_NewControl(__UI_Type_Label, "Label41", 163, 17, 1019, 988, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Written March-June (C) 2020" Control(__UI_NewID).Font = SetFont("seguiemj.ttf", 12) Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_ListBox, "ListBox1", 1150, 476, 27, 503, 0) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 END SUB SUB __UI_AssignIDs HC = __UI_GetID("HC") Chartowner = __UI_GetID("Chartowner") Sun = __UI_GetID("Sun") moon = __UI_GetID("moon") AscendantMC = __UI_GetID("AscendantMC") mercury = __UI_GetID("mercury") venus = __UI_GetID("venus") mars = __UI_GetID("mars") jupiter = __UI_GetID("jupiter") saturn = __UI_GetID("saturn") chiron = __UI_GetID("chiron") uranus = __UI_GetID("uranus") neptune = __UI_GetID("neptune") pluto = __UI_GetID("pluto") moon_node = __UI_GetID("moon_node") lilith = __UI_GetID("lilith") TextBox1 = __UI_GetID("TextBox1") __name = __UI_GetID("__name") TextBox2 = __UI_GetID("TextBox2") birthdate = __UI_GetID("birthdate") TextBox3 = __UI_GetID("TextBox3") birthtime = __UI_GetID("birthtime") TextBox4 = __UI_GetID("TextBox4") birthplace = __UI_GetID("birthplace") DropdownList_sunHouse = __UI_GetID("DropdownList_sunHouse") sun_House = __UI_GetID("sun_House") DropdownList_sunSign = __UI_GetID("DropdownList_sunSign") sun_Sign = __UI_GetID("sun_Sign") DropdownList_moonHouse = __UI_GetID("DropdownList_moonHouse") moon_House = __UI_GetID("moon_House") moon_Sign = __UI_GetID("moon_Sign") DropdownList_moonSign = __UI_GetID("DropdownList_moonSign") DropdownList_ascendantSign = __UI_GetID("DropdownList_ascendantSign") ascendant_Sign = __UI_GetID("ascendant_Sign") mc_Sign = __UI_GetID("mc_Sign") DropdownList_MCSign = __UI_GetID("DropdownList_MCSign") DropdownList_mercuryHouse = __UI_GetID("DropdownList_mercuryHouse") mercury_House = __UI_GetID("mercury_House") DropdownList_mercurySign = __UI_GetID("DropdownList_mercurySign") mercury_Sign = __UI_GetID("mercury_Sign") DropdownList_venusHouse = __UI_GetID("DropdownList_venusHouse") venus_House = __UI_GetID("venus_House") venus_Sign = __UI_GetID("venus_Sign") DropdownList_venusSign = __UI_GetID("DropdownList_venusSign") DropdownList_marsHouse = __UI_GetID("DropdownList_marsHouse") mars_House = __UI_GetID("mars_House") mars_Sign = __UI_GetID("mars_Sign") DropdownList_marsSign = __UI_GetID("DropdownList_marsSign") DropdownList_jupiterHouse = __UI_GetID("DropdownList_jupiterHouse") jupiter_House = __UI_GetID("jupiter_House") DropdownList_jupiterSign = __UI_GetID("DropdownList_jupiterSign") jupiter_Sign = __UI_GetID("jupiter_Sign") DropdownList_saturnHouse = __UI_GetID("DropdownList_saturnHouse") saturn_House = __UI_GetID("saturn_House") saturn_Sign = __UI_GetID("saturn_Sign") DropdownList_saturnSign = __UI_GetID("DropdownList_saturnSign") DropdownList_chironHouse = __UI_GetID("DropdownList_chironHouse") chiron_House = __UI_GetID("chiron_House") chiron_Sign = __UI_GetID("chiron_Sign") DropdownList_chironSign = __UI_GetID("DropdownList_chironSign") DropdownList_uranusHouse = __UI_GetID("DropdownList_uranusHouse") uranus_House = __UI_GetID("uranus_House") DropdownList_uranusSign = __UI_GetID("DropdownList_uranusSign") uranus_Sign = __UI_GetID("uranus_Sign") DropdownList_neptuneHouse = __UI_GetID("DropdownList_neptuneHouse") neptune_House = __UI_GetID("neptune_House") neptune_Sign = __UI_GetID("neptune_Sign") DropdownList_neptuneSign = __UI_GetID("DropdownList_neptuneSign") DropdownList_plutoHouse = __UI_GetID("DropdownList_plutoHouse") pluto_House = __UI_GetID("pluto_House") pluto_Sign = __UI_GetID("pluto_Sign") DropdownList_plutoSign = __UI_GetID("DropdownList_plutoSign") DropdownList_moonnodeHouse = __UI_GetID("DropdownList_moonnodeHouse") moonnode_House = __UI_GetID("moonnode_House") moonnode_Sign = __UI_GetID("moonnode_Sign") DropdownList_moonnodeSign = __UI_GetID("DropdownList_moonnodeSign") DropdownList_lilithHouse = __UI_GetID("DropdownList_lilithHouse") lilith_House = __UI_GetID("lilith_House") lilith_Sign = __UI_GetID("lilith_Sign") DropdownList_lilithSign = __UI_GetID("DropdownList_lilithSign") Button1 = __UI_GetID("Button1") PictureBox1 = __UI_GetID("PictureBox1") Label33 = __UI_GetID("Label33") PictureBox2 = __UI_GetID("PictureBox2") PictureBox3 = __UI_GetID("PictureBox3") Label34 = __UI_GetID("Label34") Label35 = __UI_GetID("Label35") Label36 = __UI_GetID("Label36") Label37 = __UI_GetID("Label37") Label38 = __UI_GetID("Label38") Label39 = __UI_GetID("Label39") Label40 = __UI_GetID("Label40") Label41 = __UI_GetID("Label41") ListBox1 = __UI_GetID("ListBox1") END SUB