': 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, "GIFPlaySample", 425, 367, 0, 0, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "GIFPlay Sample" Control(__UI_NewID).Font = SetFont("arial.ttf", 12) Control(__UI_NewID).HasBorder = False __UI_NewID = __UI_NewControl(__UI_Type_PictureBox, "GIFPictureBox", 320, 320, 95, 10, 0) __UI_RegisterResult = 0 Control(__UI_NewID).Stretch = True 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, "LoadButton", 80, 40, 10, 10, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "&Load" Control(__UI_NewID).HasBorder = False Control(__UI_NewID).CanHaveFocus = True __UI_NewID = __UI_NewControl(__UI_Type_Button, "PlayButton", 80, 40, 10, 55, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "&Play" Control(__UI_NewID).HasBorder = False Control(__UI_NewID).CanHaveFocus = True __UI_NewID = __UI_NewControl(__UI_Type_Button, "AboutButton", 80, 40, 10, 100, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "&About" Control(__UI_NewID).Stretch = True Control(__UI_NewID).HasBorder = False Control(__UI_NewID).CanHaveFocus = True __UI_NewID = __UI_NewControl(__UI_Type_ProgressBar, "DoneProgressBar", 320, 23, 95, 335, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "\92;#" Control(__UI_NewID).HasBorder = False Control(__UI_NewID).Max = 100 Control(__UI_NewID).ShowPercentage = True END SUB SUB __UI_AssignIDs GIFPlaySample = __UI_GetID("GIFPlaySample") GIFPictureBox = __UI_GetID("GIFPictureBox") LoadButton = __UI_GetID("LoadButton") PlayButton = __UI_GetID("PlayButton") AboutButton = __UI_GetID("AboutButton") DoneProgressBar = __UI_GetID("DoneProgressBar") END SUB