': 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, "Stopwatch", 806, 215, 0, 0, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Stopwatch" Control(__UI_NewID).Font = SetFont("arial.ttf", 12) Control(__UI_NewID).HasBorder = False __UI_NewID = __UI_NewControl(__UI_Type_Label, "TimeLB", 780, 94, 13, 10, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "00:00:00,000" Control(__UI_NewID).Font = SetFont("COUR.TTF", 78) Control(__UI_NewID).BorderColor = _RGB32(0, 0, 0) 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_Button, "StartBT", 80, 23, 278, 116, 0) __UI_RegisterResult = 0 __UI_DefaultButtonID = __UI_NewID SetCaption __UI_NewID, "Start" Control(__UI_NewID).HasBorder = False Control(__UI_NewID).CanHaveFocus = True __UI_NewID = __UI_NewControl(__UI_Type_Button, "LapBT", 80, 23, 363, 116, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Lap" Control(__UI_NewID).HasBorder = False Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).Disabled = True __UI_NewID = __UI_NewControl(__UI_Type_Button, "StopBT", 80, 23, 448, 116, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Reset" Control(__UI_NewID).HasBorder = False Control(__UI_NewID).CanHaveFocus = True __UI_NewID = __UI_NewControl(__UI_Type_ListBox, "ListBox1", 249, 58, 278, 149, 0) __UI_RegisterResult = 0 Control(__UI_NewID).Font = SetFont("COUR.TTF", 12) Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 Control(__UI_NewID).AutoScroll = True END SUB SUB __UI_AssignIDs Stopwatch = __UI_GetID("Stopwatch") TimeLB = __UI_GetID("TimeLB") StartBT = __UI_GetID("StartBT") LapBT = __UI_GetID("LapBT") StopBT = __UI_GetID("StopBT") ListBox1 = __UI_GetID("ListBox1") END SUB