': This form was generated by ': InForm - GUI library for QB64 - v1.5 ': Fellippe Heitor, 2016-2023 - fellippe@qb64.org - @fellippeheitor ': https://github.com/FellippeHeitor/InForm '----------------------------------------------------------- SUB __UI_LoadForm DIM __UI_NewID AS LONG, __UI_RegisterResult AS LONG __UI_NewID = __UI_NewControl(__UI_Type_Form, "WordClock", 325, 442, 0, 0, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Word Clock" Control(__UI_NewID).Font = SetFont("arial.ttf", 12) Control(__UI_NewID).ForeColor = _RGB32(0, 39, 0) Control(__UI_NewID).BackColor = _RGB32(6, 22, 6) Control(__UI_NewID).HasBorder = False __UI_NewID = __UI_NewControl(__UI_Type_Label, "ITISLB", 84, 41, 9, 10, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "IT IS" Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 32) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle Control(__UI_NewID).AutoSize = True __UI_NewID = __UI_NewControl(__UI_Type_Label, "HALFLB", 82, 41, 131, 10, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "HALF" Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 32) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle Control(__UI_NewID).AutoSize = True __UI_NewID = __UI_NewControl(__UI_Type_Label, "TENLB", 63, 41, 251, 10, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "TEN" Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 32) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle Control(__UI_NewID).AutoSize = True __UI_NewID = __UI_NewControl(__UI_Type_Label, "QUARTERLB", 154, 41, 9, 56, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "QUARTER" Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 32) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle Control(__UI_NewID).AutoSize = True __UI_NewID = __UI_NewControl(__UI_Type_Label, "TWENTYLB", 135, 41, 179, 56, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "TWENTY" Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 32) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle Control(__UI_NewID).AutoSize = True __UI_NewID = __UI_NewControl(__UI_Type_Label, "FIVELB", 71, 41, 9, 102, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "FIVE" Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 32) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle Control(__UI_NewID).AutoSize = True __UI_NewID = __UI_NewControl(__UI_Type_Label, "MINUTESLB", 143, 41, 104, 102, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "MINUTES" Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 32) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle Control(__UI_NewID).AutoSize = True __UI_NewID = __UI_NewControl(__UI_Type_Label, "TOLB", 43, 41, 271, 102, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "TO" Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 32) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle Control(__UI_NewID).AutoSize = True __UI_NewID = __UI_NewControl(__UI_Type_Label, "PASTLB", 80, 41, 9, 148, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "PAST" Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 32) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle Control(__UI_NewID).AutoSize = True __UI_NewID = __UI_NewControl(__UI_Type_Label, "TWOLB", 76, 41, 110, 148, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "TWO" Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 32) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle Control(__UI_NewID).AutoSize = True __UI_NewID = __UI_NewControl(__UI_Type_Label, "THREELB", 107, 41, 207, 148, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "THREE" Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 32) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle Control(__UI_NewID).AutoSize = True __UI_NewID = __UI_NewControl(__UI_Type_Label, "ONELB", 69, 41, 9, 194, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "ONE" Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 32) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle Control(__UI_NewID).AutoSize = True __UI_NewID = __UI_NewControl(__UI_Type_Label, "FOURLB", 91, 41, 117, 194, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "FOUR" Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 32) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle Control(__UI_NewID).AutoSize = True __UI_NewID = __UI_NewControl(__UI_Type_Label, "FIVELB2", 71, 41, 247, 194, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "FIVE" Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 32) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle Control(__UI_NewID).AutoSize = True __UI_NewID = __UI_NewControl(__UI_Type_Label, "SIXLB", 51, 41, 9, 240, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "SIX" Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 32) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle Control(__UI_NewID).AutoSize = True __UI_NewID = __UI_NewControl(__UI_Type_Label, "SEVENLB", 107, 41, 85, 240, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "SEVEN" Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 32) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle Control(__UI_NewID).AutoSize = True __UI_NewID = __UI_NewControl(__UI_Type_Label, "EIGHTLB", 97, 41, 217, 240, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "EIGHT" Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 32) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle Control(__UI_NewID).AutoSize = True __UI_NewID = __UI_NewControl(__UI_Type_Label, "NINELB", 76, 41, 9, 286, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "NINE" Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 32) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle Control(__UI_NewID).AutoSize = True __UI_NewID = __UI_NewControl(__UI_Type_Label, "TENLB2", 63, 41, 105, 286, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "TEN" Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 32) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle Control(__UI_NewID).AutoSize = True __UI_NewID = __UI_NewControl(__UI_Type_Label, "ELEVENLB", 125, 41, 188, 286, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "ELEVEN" Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 32) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle Control(__UI_NewID).AutoSize = True __UI_NewID = __UI_NewControl(__UI_Type_Label, "TWELVELB", 130, 41, 9, 332, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "TWELVE" Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 32) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle Control(__UI_NewID).AutoSize = True __UI_NewID = __UI_NewControl(__UI_Type_Label, "OCLOCKLB", 142, 41, 173, 332, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "O'CLOCK" Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 32) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle Control(__UI_NewID).AutoSize = True __UI_NewID = __UI_NewControl(__UI_Type_Label, "BackDots", 100, 52, 113, 390, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "* * * *" Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 42) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "DotsLB", 100, 52, 113, 390, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "* * * *" Control(__UI_NewID).Font = SetFont("ARIAL.TTF", 42) Control(__UI_NewID).ForeColor = _RGB32(111, 205, 0) Control(__UI_NewID).BackStyle = __UI_Transparent Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle END SUB SUB __UI_AssignIDs WordClock = __UI_GetID("WordClock") ITISLB = __UI_GetID("ITISLB") HALFLB = __UI_GetID("HALFLB") TENLB = __UI_GetID("TENLB") QUARTERLB = __UI_GetID("QUARTERLB") TWENTYLB = __UI_GetID("TWENTYLB") FIVELB = __UI_GetID("FIVELB") MINUTESLB = __UI_GetID("MINUTESLB") TOLB = __UI_GetID("TOLB") PASTLB = __UI_GetID("PASTLB") TWOLB = __UI_GetID("TWOLB") THREELB = __UI_GetID("THREELB") ONELB = __UI_GetID("ONELB") FOURLB = __UI_GetID("FOURLB") FIVELB2 = __UI_GetID("FIVELB2") SIXLB = __UI_GetID("SIXLB") SEVENLB = __UI_GetID("SEVENLB") EIGHTLB = __UI_GetID("EIGHTLB") NINELB = __UI_GetID("NINELB") TENLB2 = __UI_GetID("TENLB2") ELEVENLB = __UI_GetID("ELEVENLB") TWELVELB = __UI_GetID("TWELVELB") OCLOCKLB = __UI_GetID("OCLOCKLB") BackDots = __UI_GetID("BackDots") DotsLB = __UI_GetID("DotsLB") END SUB