': 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, "GravitationSimulation", 1400, 830, 0, 0, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Gravitation Simulation" Control(__UI_NewID).Font = SetFont("segoeui.ttf", 12) Control(__UI_NewID).HasBorder = False __UI_NewID = __UI_NewControl(__UI_Type_Frame, "SimulationTypeFR", 180, 180, 10, 577, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "SimulationType" Control(__UI_NewID).ForeColor = _RGB32(236, 233, 236) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 5 Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Frame, "HowManyBodiesFR", 160, 100, 362, 458, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "How Many Bodies" Control(__UI_NewID).ForeColor = _RGB32(236, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 4 Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Frame, "GravitationalCollapseFR", 190, 134, 202, 622, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Gravitational Collapse" Control(__UI_NewID).ForeColor = _RGB32(236, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 8 Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Frame, "GravitationalConstantFR", 212, 34, 678, 20, 0) __UI_RegisterResult = 0 Control(__UI_NewID).ForeColor = _RGB32(236, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 2 Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Frame, "BodyDataFR", 454, 354, 532, 458, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Body Data" Control(__UI_NewID).ForeColor = _RGB32(236, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 96 Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Frame, "StepTimeFR", 190, 56, 409, 20, 0) __UI_RegisterResult = 0 Control(__UI_NewID).ForeColor = _RGB32(236, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 7 Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Frame, "CollisionsFR", 126, 34, 10, 368, 0) __UI_RegisterResult = 0 Control(__UI_NewID).ForeColor = _RGB32(236, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 1 Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Frame, "CollisionDistanceFR", 174, 34, 150, 368, 0) __UI_RegisterResult = 0 Control(__UI_NewID).ForeColor = _RGB32(236, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 2 Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Frame, "ViewingAngleFR", 320, 72, 1070, 20, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Viewing Angle" Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 4 Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Frame, "ZoomFR", 160, 44, 900, 20, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Zoom" Control(__UI_NewID).ForeColor = _RGB32(234, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 2 Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Frame, "SimulationLimitTypeFR", 140, 74, 10, 485, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Simulation Limit Type" Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 2 Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Frame, "SimulationLimitTimeFR", 190, 76, 162, 420, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Simulation Limit" Control(__UI_NewID).ForeColor = _RGB32(234, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 4 Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Frame, "SimulationLimitCyclesFR", 190, 44, 162, 514, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Simulation Limit" Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 2 Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Frame, "ElapsedTimeFR", 180, 56, 220, 20, 0) __UI_RegisterResult = 0 Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 5 Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Frame, "EnergyFR", 61, 54, 608, 20, 0) __UI_RegisterResult = 0 Control(__UI_NewID).ForeColor = _RGB32(234, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 2 Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_PictureBox, "PictureBox1", 1400, 830, 0, 0, 0) __UI_RegisterResult = 0 Control(__UI_NewID).Stretch = True Control(__UI_NewID).BackColor = _RGB32(30, 30, 30) 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, "ExitBT", 80, 23, 1310, 800, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Exit" Control(__UI_NewID).HasBorder = False Control(__UI_NewID).CanHaveFocus = True __UI_NewID = __UI_NewControl(__UI_Type_Button, "PauseBT", 80, 23, 10, 767, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Pause" Control(__UI_NewID).HasBorder = False Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).Disabled = True __UI_NewID = __UI_NewControl(__UI_Type_Button, "ExecuteBT", 80, 23, 10, 800, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Execute" Control(__UI_NewID).HasBorder = False Control(__UI_NewID).CanHaveFocus = True __UI_NewID = __UI_NewControl(__UI_Type_RadioButton, "SolarSystemRB", 110, 23, 25, 21, __UI_GetID("SimulationTypeFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Solar System" Control(__UI_NewID).ForeColor = _RGB32(234, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).Value = -1 Control(__UI_NewID).CanHaveFocus = True __UI_NewID = __UI_NewControl(__UI_Type_RadioButton, "BodyManualRB", 115, 23, 25, 51, __UI_GetID("SimulationTypeFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "11-Body Manual" Control(__UI_NewID).ForeColor = _RGB32(234, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).CanHaveFocus = True __UI_NewID = __UI_NewControl(__UI_Type_RadioButton, "GravitationalCollapseRB", 145, 23, 25, 81, __UI_GetID("SimulationTypeFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Gravitational Collapse" Control(__UI_NewID).ForeColor = _RGB32(234, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).CanHaveFocus = True __UI_NewID = __UI_NewControl(__UI_Type_RadioButton, "LoadFromFileRB", 110, 23, 25, 111, __UI_GetID("SimulationTypeFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Load from File" Control(__UI_NewID).ForeColor = _RGB32(234, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).CanHaveFocus = True __UI_NewID = __UI_NewControl(__UI_Type_RadioButton, "DemonstrationRB", 110, 23, 25, 141, __UI_GetID("SimulationTypeFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Demonstration" Control(__UI_NewID).ForeColor = _RGB32(234, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).CanHaveFocus = True __UI_NewID = __UI_NewControl(__UI_Type_Label, "GravitationalConstantLB", 118, 21, 5, 5, __UI_GetID("GravitationalConstantFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Gravitational Constant" Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "GravitationalConstantTB", 75, 23, 130, 5, __UI_GetID("GravitationalConstantFR")) __UI_RegisterResult = 0 Text(__UI_NewID) = "6.67385E-11" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "HowManyBodiesLB", 101, 21, 10, 15, __UI_GetID("HowManyBodiesFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "How Many Bodies?" Control(__UI_NewID).ForeColor = _RGB32(234, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "HowManyBodiesTB", 30, 23, 120, 15, __UI_GetID("HowManyBodiesFR")) __UI_RegisterResult = 0 Text(__UI_NewID) = "11" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Max = 2 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "BodyLB", 30, 21, 10, 15, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Body" Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "MassLB", 40, 21, 52, 15, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Mass" Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "xPositionLB", 53, 21, 97, 15, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "x-Position" Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "yPositionLB", 54, 21, 155, 15, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "y-Position" Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "zPositionLB", 53, 21, 213, 15, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "z-Position" Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "xVelocityLB", 52, 21, 271, 15, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "x-Velocity" Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "yVelocityLB", 53, 21, 329, 15, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "y-Velocity" Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "zVelocityLB", 52, 21, 387, 15, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "z-Velocity" Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "Body1LB", 33, 21, 10, 38, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Body1" Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "BodyMass1TB", 40, 23, 52, 38, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "XPosition1TB", 54, 23, 97, 38, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "YPosition1TB", 54, 23, 155, 38, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ZPosition1TB", 54, 23, 213, 38, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "XVelocity1TB", 54, 23, 271, 38, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "YVelocity1TB", 54, 23, 329, 38, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ZVelocity1TB", 54, 23, 387, 38, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "Body2LB", 33, 21, 10, 66, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Body2" Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "BodyMass2TB", 40, 23, 52, 66, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "XPosition2TB", 54, 23, 97, 66, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "YPosition2TB", 54, 23, 155, 66, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ZPosition2TB", 54, 23, 213, 66, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "XVelocity2TB", 54, 23, 271, 66, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "YVelocity2TB", 54, 23, 329, 66, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ZVelocity2TB", 54, 23, 387, 66, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "Body3LB", 33, 21, 10, 94, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Body3" Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "BodyMass3TB", 40, 23, 52, 94, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "XPosition3TB", 54, 23, 97, 94, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "YPosition3TB", 54, 23, 155, 94, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ZPosition3TB", 54, 23, 213, 94, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "XVelocity3TB", 54, 23, 271, 94, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "YVelocity3TB", 54, 23, 329, 94, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ZVelocity3TB", 54, 23, 387, 94, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "Body4LB", 33, 21, 10, 122, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Body4" Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "BodyMass4TB", 40, 23, 52, 122, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "XPosition4TB", 54, 23, 97, 122, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "YPosition4TB", 54, 23, 155, 122, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ZPosition4TB", 54, 23, 213, 122, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "XVelocity4TB", 54, 23, 271, 122, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "YVelocity4TB", 54, 23, 329, 122, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ZVelocity4TB", 54, 23, 387, 122, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "Body5LB", 33, 21, 10, 150, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Body5" Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "BodyMass5TB", 40, 23, 52, 150, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "XPosition5TB", 54, 23, 97, 150, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "YPosition5TB", 54, 23, 155, 150, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ZPosition5TB", 54, 23, 213, 150, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "XVelocity5TB", 54, 23, 271, 150, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "YVelocity5TB", 54, 23, 329, 150, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ZVelocity5TB", 54, 23, 387, 150, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "Body6LB", 33, 21, 10, 180, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Body6" Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "BodyMass6TB", 40, 25, 52, 178, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "XPosition6TB", 54, 25, 97, 178, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "YPosition6TB", 54, 25, 155, 178, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ZPosition6TB", 54, 25, 213, 178, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "XVelocity6TB", 54, 25, 271, 178, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "YVelocity6TB", 54, 25, 329, 178, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ZVelocity6TB", 54, 25, 387, 178, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "Body7LB", 33, 21, 10, 208, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Body7" Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "BodyMass7TB", 40, 25, 52, 206, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "XPosition7TB", 54, 25, 97, 206, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "YPosition7TB", 54, 25, 155, 206, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ZPosition7TB", 54, 25, 213, 206, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "XVelocity7TB", 54, 25, 271, 206, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "YVelocity7TB", 54, 25, 329, 206, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ZVelocity7TB", 54, 25, 387, 206, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "Body8LB", 33, 21, 10, 236, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Body8" Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "BodyMass8TB", 40, 25, 52, 234, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "XPosition8TB", 54, 25, 97, 234, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "YPosition8TB", 54, 25, 155, 234, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ZPosition8TB", 54, 25, 213, 234, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "XVelocity8TB", 54, 25, 271, 234, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "YVelocity8TB", 54, 25, 329, 234, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ZVelocity8TB", 54, 25, 387, 234, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "Body9LB", 33, 21, 10, 264, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Body9" Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "BodyMass9TB", 40, 25, 52, 262, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "XPosition9TB", 54, 25, 97, 262, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "YPosition9TB", 54, 25, 155, 262, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ZPosition9TB", 54, 25, 213, 262, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "XVelocity9TB", 54, 25, 271, 262, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "YVelocity9TB", 54, 25, 329, 262, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ZVelocity9TB", 54, 25, 387, 262, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "Body10LB", 39, 21, 10, 292, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Body10" Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "BodyMass10TB", 40, 25, 52, 290, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "XPosition10TB", 54, 25, 97, 290, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "YPosition10TB", 54, 25, 155, 290, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ZPosition10TB", 54, 25, 213, 290, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "XVelocity10TB", 54, 25, 271, 290, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "YVelocity10TB", 54, 25, 329, 290, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ZVelocity10TB", 54, 25, 387, 290, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "Body11LB", 39, 21, 10, 320, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Body11" Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "BodyMass11TB", 40, 25, 52, 318, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "XPosition11TB", 54, 25, 97, 318, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "YPosition11TB", 54, 25, 155, 318, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ZPosition11TB", 54, 25, 213, 318, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "XVelocity11TB", 54, 25, 271, 318, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "YVelocity11TB", 54, 25, 329, 318, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ZVelocity11TB", 54, 25, 387, 318, __UI_GetID("BodyDataFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "NumberOfBodiesLB", 96, 21, 10, 15, __UI_GetID("GravitationalCollapseFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Number of Bodies" Control(__UI_NewID).ForeColor = _RGB32(234, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "NumberOfBodiesTB", 30, 23, 152, 15, __UI_GetID("GravitationalCollapseFR")) __UI_RegisterResult = 0 Text(__UI_NewID) = "512" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Max = 3 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "MaximumMassLB", 84, 21, 10, 43, __UI_GetID("GravitationalCollapseFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Maximum Mass" Control(__UI_NewID).ForeColor = _RGB32(234, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "MaximumMassTB", 50, 23, 132, 43, __UI_GetID("GravitationalCollapseFR")) __UI_RegisterResult = 0 Text(__UI_NewID) = "3E26" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Max = 6 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "MaximumDistanceLB", 102, 21, 10, 71, __UI_GetID("GravitationalCollapseFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Maximum Distance" Control(__UI_NewID).ForeColor = _RGB32(234, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "MaximumDistanceTB", 50, 23, 132, 71, __UI_GetID("GravitationalCollapseFR")) __UI_RegisterResult = 0 Text(__UI_NewID) = "2E9" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Max = 6 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "MaximumSpeedLB", 89, 21, 10, 99, __UI_GetID("GravitationalCollapseFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Maximum Speed" Control(__UI_NewID).ForeColor = _RGB32(234, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "MaximumSpeedTB", 30, 23, 152, 99, __UI_GetID("GravitationalCollapseFR")) __UI_RegisterResult = 0 Text(__UI_NewID) = "500" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Max = 3 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "StepTimeLB", 53, 21, 10, 5, __UI_GetID("StepTimeFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Step Time" Control(__UI_NewID).ForeColor = _RGB32(234, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "StepTimeSecTB", 30, 23, 150, 5, __UI_GetID("StepTimeFR")) __UI_RegisterResult = 0 Text(__UI_NewID) = "0" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Max = 2 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "CollisionDistanceLB", 97, 21, 10, 5, __UI_GetID("CollisionDistanceFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Collision Distance " Control(__UI_NewID).ForeColor = _RGB32(234, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "CollisionDistanceTB", 50, 23, 110, 5, __UI_GetID("CollisionDistanceFR")) __UI_RegisterResult = 0 Text(__UI_NewID) = "1E6" Control(__UI_NewID).BackColor = _RGB32(235, 233, 236) Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_CheckBox, "AllowCollisionsCB", 110, 23, 10, 5, __UI_GetID("CollisionsFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Allow Collisions" Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).Disabled = True __UI_NewID = __UI_NewControl(__UI_Type_CheckBox, "AllowComputertoSetCB", 150, 23, 10, 44, __UI_GetID("HowManyBodiesFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Allow Computer" Control(__UI_NewID).ForeColor = _RGB32(234, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).CanHaveFocus = True __UI_NewID = __UI_NewControl(__UI_Type_Label, "toSetValuesLB", 67, 21, 30, 66, __UI_GetID("HowManyBodiesFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "to Set Values" Control(__UI_NewID).ForeColor = _RGB32(234, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_ProgressBar, "ProgressBar1", 220, 23, 100, 800, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "\92;#" Control(__UI_NewID).HasBorder = False Control(__UI_NewID).Max = 100 Control(__UI_NewID).ShowPercentage = True __UI_NewID = __UI_NewControl(__UI_Type_TrackBar, "ViewingTrackBar", 300, 40, 10, 10, __UI_GetID("ViewingAngleFR")) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = False Control(__UI_NewID).Min = -180 Control(__UI_NewID).Max = 180 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).Interval = 30 __UI_NewID = __UI_NewControl(__UI_Type_Label, "ZeroDegLB", 6, 21, 158, 50, __UI_GetID("ViewingAngleFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "0" Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "Minus180LB", 23, 21, 5, 50, __UI_GetID("ViewingAngleFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "-180" Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "Plus180LB", 26, 21, 289, 50, __UI_GetID("ViewingAngleFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "+180" Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_RadioButton, "TimeLimitRB", 60, 23, 10, 10, __UI_GetID("SimulationLimitTypeFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Time" Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).Value = -1 Control(__UI_NewID).CanHaveFocus = True __UI_NewID = __UI_NewControl(__UI_Type_RadioButton, "CyclesLimitRB", 122, 23, 10, 38, __UI_GetID("SimulationLimitTypeFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Number of Cycles" Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).CanHaveFocus = True __UI_NewID = __UI_NewControl(__UI_Type_Label, "NumberofMinutesLB", 104, 21, 10, 10, __UI_GetID("SimulationLimitTimeFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Number of Minutes" Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "NumberofMinutesTB", 40, 23, 140, 10, __UI_GetID("SimulationLimitTimeFR")) __UI_RegisterResult = 0 Text(__UI_NewID) = "10" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Max = 2 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "NumberofHoursLB", 93, 21, 10, 38, __UI_GetID("SimulationLimitTimeFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Number of Hours" Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "NumberofHoursTB", 40, 23, 140, 38, __UI_GetID("SimulationLimitTimeFR")) __UI_RegisterResult = 0 Text(__UI_NewID) = "0" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Max = 2 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "NumberofCyclesTB", 70, 23, 110, 10, __UI_GetID("SimulationLimitCyclesFR")) __UI_RegisterResult = 0 Text(__UI_NewID) = "100000" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Max = 9 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "NumberofCyclesLB", 95, 21, 10, 10, __UI_GetID("SimulationLimitCyclesFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Number of Cycles" Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "StepTimeMinTB", 30, 23, 110, 5, __UI_GetID("StepTimeFR")) __UI_RegisterResult = 0 Text(__UI_NewID) = "0" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Max = 2 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "StepTimeHrTB", 30, 23, 70, 5, __UI_GetID("StepTimeFR")) __UI_RegisterResult = 0 Text(__UI_NewID) = "1" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Max = 3 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "StepTimeHrLB", 32, 21, 70, 30, __UI_GetID("StepTimeFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Hours" Control(__UI_NewID).ForeColor = _RGB32(234, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "StepTimeMinsLB", 26, 21, 110, 30, __UI_GetID("StepTimeFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Mins" Control(__UI_NewID).ForeColor = _RGB32(234, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "StepTimeSecsLB", 23, 21, 150, 30, __UI_GetID("StepTimeFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Secs" Control(__UI_NewID).ForeColor = _RGB32(234, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ElapsedTime1TB", 50, 23, 84, 5, __UI_GetID("ElapsedTimeFR")) __UI_RegisterResult = 0 Text(__UI_NewID) = "0" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).Disabled = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "ElapsedTime2TB", 30, 23, 140, 5, __UI_GetID("ElapsedTimeFR")) __UI_RegisterResult = 0 Text(__UI_NewID) = "0" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).Disabled = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "ElapsedTime1LB", 43, 21, 84, 30, __UI_GetID("ElapsedTimeFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Minutes" Control(__UI_NewID).ForeColor = _RGB32(234, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "ElapsedTime2LB", 30, 21, 140, 30, __UI_GetID("ElapsedTimeFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Secs" Control(__UI_NewID).ForeColor = _RGB32(234, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "SolarSystemLB", 123, 32, 10, 10, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, " Solar System " Control(__UI_NewID).Font = SetFont("segoeui.ttf", 20) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "ManualInputLB", 126, 32, 10, 52, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, " Manual Input " Control(__UI_NewID).Font = SetFont("segoeui.ttf", 20) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "GravitationalCollapseLB", 202, 32, 10, 94, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, " Gravitational Collapse " Control(__UI_NewID).Font = SetFont("segoeui.ttf", 20) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "LoadFromFileLB", 135, 32, 10, 136, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, " Load from File " Control(__UI_NewID).Font = SetFont("segoeui.ttf", 20) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "ElapsedTimeLB", 70, 21, 10, 5, __UI_GetID("ElapsedTimeFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Elapsed Time" Control(__UI_NewID).ForeColor = _RGB32(234, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "DemonstrationLB", 141, 32, 10, 178, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, " Demonstration " Control(__UI_NewID).Font = SetFont("segoeui.ttf", 20) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Button, "ResetBT", 80, 23, 100, 767, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Reset" Control(__UI_NewID).HasBorder = False Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).Disabled = True __UI_NewID = __UI_NewControl(__UI_Type_Label, "EnergyLB", 36, 21, 10, 5, __UI_GetID("EnergyFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Energy" Control(__UI_NewID).ForeColor = _RGB32(235, 233, 237) Control(__UI_NewID).BackColor = _RGB32(0, 0, 0) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "EnergyTB", 51, 23, 5, 26, __UI_GetID("EnergyFR")) __UI_RegisterResult = 0 Text(__UI_NewID) = "0" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Max = 7 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).Disabled = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "DemoLabel1LB", 110, 32, 10, 220, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "DemoLabel1" Control(__UI_NewID).Font = SetFont("segoeui.ttf", 20) Control(__UI_NewID).ForeColor = _RGB32(14, 14, 103) Control(__UI_NewID).BackColor = _RGB32(221, 233, 168) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Button, "TraceBT", 60, 23, 190, 767, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Spot" Control(__UI_NewID).HasBorder = False Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).Disabled = True __UI_NewID = __UI_NewControl(__UI_Type_Button, "ClearBT", 60, 23, 260, 767, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Clear" Control(__UI_NewID).HasBorder = False Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).Disabled = True __UI_NewID = __UI_NewControl(__UI_Type_Label, "DemoLabel2LB", 110, 32, 10, 262, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "DemoLabel2" Control(__UI_NewID).Font = SetFont("segoeui.ttf", 20) Control(__UI_NewID).ForeColor = _RGB32(14, 14, 103) Control(__UI_NewID).BackColor = _RGB32(221, 233, 168) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Button, "ZoomInBT", 70, 23, 7, 10, __UI_GetID("ZoomFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Zoom In" Control(__UI_NewID).BackColor = _RGB32(234, 233, 237) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).CanHaveFocus = True __UI_NewID = __UI_NewControl(__UI_Type_Button, "ZoomOutBT", 70, 23, 84, 10, __UI_GetID("ZoomFR")) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Zoom Out" Control(__UI_NewID).BackColor = _RGB32(234, 233, 237) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).CanHaveFocus = True END SUB SUB __UI_AssignIDs GravitationSimulation = __UI_GetID("GravitationSimulation") SimulationTypeFR = __UI_GetID("SimulationTypeFR") HowManyBodiesFR = __UI_GetID("HowManyBodiesFR") GravitationalCollapseFR = __UI_GetID("GravitationalCollapseFR") GravitationalConstantFR = __UI_GetID("GravitationalConstantFR") BodyDataFR = __UI_GetID("BodyDataFR") StepTimeFR = __UI_GetID("StepTimeFR") CollisionsFR = __UI_GetID("CollisionsFR") CollisionDistanceFR = __UI_GetID("CollisionDistanceFR") ViewingAngleFR = __UI_GetID("ViewingAngleFR") ZoomFR = __UI_GetID("ZoomFR") SimulationLimitTypeFR = __UI_GetID("SimulationLimitTypeFR") SimulationLimitTimeFR = __UI_GetID("SimulationLimitTimeFR") SimulationLimitCyclesFR = __UI_GetID("SimulationLimitCyclesFR") ElapsedTimeFR = __UI_GetID("ElapsedTimeFR") EnergyFR = __UI_GetID("EnergyFR") PictureBox1 = __UI_GetID("PictureBox1") ExitBT = __UI_GetID("ExitBT") PauseBT = __UI_GetID("PauseBT") ExecuteBT = __UI_GetID("ExecuteBT") SolarSystemRB = __UI_GetID("SolarSystemRB") BodyManualRB = __UI_GetID("BodyManualRB") GravitationalCollapseRB = __UI_GetID("GravitationalCollapseRB") LoadFromFileRB = __UI_GetID("LoadFromFileRB") DemonstrationRB = __UI_GetID("DemonstrationRB") GravitationalConstantLB = __UI_GetID("GravitationalConstantLB") GravitationalConstantTB = __UI_GetID("GravitationalConstantTB") HowManyBodiesLB = __UI_GetID("HowManyBodiesLB") HowManyBodiesTB = __UI_GetID("HowManyBodiesTB") BodyLB = __UI_GetID("BodyLB") MassLB = __UI_GetID("MassLB") xPositionLB = __UI_GetID("xPositionLB") yPositionLB = __UI_GetID("yPositionLB") zPositionLB = __UI_GetID("zPositionLB") xVelocityLB = __UI_GetID("xVelocityLB") yVelocityLB = __UI_GetID("yVelocityLB") zVelocityLB = __UI_GetID("zVelocityLB") Body1LB = __UI_GetID("Body1LB") BodyMass1TB = __UI_GetID("BodyMass1TB") XPosition1TB = __UI_GetID("XPosition1TB") YPosition1TB = __UI_GetID("YPosition1TB") ZPosition1TB = __UI_GetID("ZPosition1TB") XVelocity1TB = __UI_GetID("XVelocity1TB") YVelocity1TB = __UI_GetID("YVelocity1TB") ZVelocity1TB = __UI_GetID("ZVelocity1TB") Body2LB = __UI_GetID("Body2LB") BodyMass2TB = __UI_GetID("BodyMass2TB") XPosition2TB = __UI_GetID("XPosition2TB") YPosition2TB = __UI_GetID("YPosition2TB") ZPosition2TB = __UI_GetID("ZPosition2TB") XVelocity2TB = __UI_GetID("XVelocity2TB") YVelocity2TB = __UI_GetID("YVelocity2TB") ZVelocity2TB = __UI_GetID("ZVelocity2TB") Body3LB = __UI_GetID("Body3LB") BodyMass3TB = __UI_GetID("BodyMass3TB") XPosition3TB = __UI_GetID("XPosition3TB") YPosition3TB = __UI_GetID("YPosition3TB") ZPosition3TB = __UI_GetID("ZPosition3TB") XVelocity3TB = __UI_GetID("XVelocity3TB") YVelocity3TB = __UI_GetID("YVelocity3TB") ZVelocity3TB = __UI_GetID("ZVelocity3TB") Body4LB = __UI_GetID("Body4LB") BodyMass4TB = __UI_GetID("BodyMass4TB") XPosition4TB = __UI_GetID("XPosition4TB") YPosition4TB = __UI_GetID("YPosition4TB") ZPosition4TB = __UI_GetID("ZPosition4TB") XVelocity4TB = __UI_GetID("XVelocity4TB") YVelocity4TB = __UI_GetID("YVelocity4TB") ZVelocity4TB = __UI_GetID("ZVelocity4TB") Body5LB = __UI_GetID("Body5LB") BodyMass5TB = __UI_GetID("BodyMass5TB") XPosition5TB = __UI_GetID("XPosition5TB") YPosition5TB = __UI_GetID("YPosition5TB") ZPosition5TB = __UI_GetID("ZPosition5TB") XVelocity5TB = __UI_GetID("XVelocity5TB") YVelocity5TB = __UI_GetID("YVelocity5TB") ZVelocity5TB = __UI_GetID("ZVelocity5TB") Body6LB = __UI_GetID("Body6LB") BodyMass6TB = __UI_GetID("BodyMass6TB") XPosition6TB = __UI_GetID("XPosition6TB") YPosition6TB = __UI_GetID("YPosition6TB") ZPosition6TB = __UI_GetID("ZPosition6TB") XVelocity6TB = __UI_GetID("XVelocity6TB") YVelocity6TB = __UI_GetID("YVelocity6TB") ZVelocity6TB = __UI_GetID("ZVelocity6TB") Body7LB = __UI_GetID("Body7LB") BodyMass7TB = __UI_GetID("BodyMass7TB") XPosition7TB = __UI_GetID("XPosition7TB") YPosition7TB = __UI_GetID("YPosition7TB") ZPosition7TB = __UI_GetID("ZPosition7TB") XVelocity7TB = __UI_GetID("XVelocity7TB") YVelocity7TB = __UI_GetID("YVelocity7TB") ZVelocity7TB = __UI_GetID("ZVelocity7TB") Body8LB = __UI_GetID("Body8LB") BodyMass8TB = __UI_GetID("BodyMass8TB") XPosition8TB = __UI_GetID("XPosition8TB") YPosition8TB = __UI_GetID("YPosition8TB") ZPosition8TB = __UI_GetID("ZPosition8TB") XVelocity8TB = __UI_GetID("XVelocity8TB") YVelocity8TB = __UI_GetID("YVelocity8TB") ZVelocity8TB = __UI_GetID("ZVelocity8TB") Body9LB = __UI_GetID("Body9LB") BodyMass9TB = __UI_GetID("BodyMass9TB") XPosition9TB = __UI_GetID("XPosition9TB") YPosition9TB = __UI_GetID("YPosition9TB") ZPosition9TB = __UI_GetID("ZPosition9TB") XVelocity9TB = __UI_GetID("XVelocity9TB") YVelocity9TB = __UI_GetID("YVelocity9TB") ZVelocity9TB = __UI_GetID("ZVelocity9TB") Body10LB = __UI_GetID("Body10LB") BodyMass10TB = __UI_GetID("BodyMass10TB") XPosition10TB = __UI_GetID("XPosition10TB") YPosition10TB = __UI_GetID("YPosition10TB") ZPosition10TB = __UI_GetID("ZPosition10TB") XVelocity10TB = __UI_GetID("XVelocity10TB") YVelocity10TB = __UI_GetID("YVelocity10TB") ZVelocity10TB = __UI_GetID("ZVelocity10TB") Body11LB = __UI_GetID("Body11LB") BodyMass11TB = __UI_GetID("BodyMass11TB") XPosition11TB = __UI_GetID("XPosition11TB") YPosition11TB = __UI_GetID("YPosition11TB") ZPosition11TB = __UI_GetID("ZPosition11TB") XVelocity11TB = __UI_GetID("XVelocity11TB") YVelocity11TB = __UI_GetID("YVelocity11TB") ZVelocity11TB = __UI_GetID("ZVelocity11TB") NumberOfBodiesLB = __UI_GetID("NumberOfBodiesLB") NumberOfBodiesTB = __UI_GetID("NumberOfBodiesTB") MaximumMassLB = __UI_GetID("MaximumMassLB") MaximumMassTB = __UI_GetID("MaximumMassTB") MaximumDistanceLB = __UI_GetID("MaximumDistanceLB") MaximumDistanceTB = __UI_GetID("MaximumDistanceTB") MaximumSpeedLB = __UI_GetID("MaximumSpeedLB") MaximumSpeedTB = __UI_GetID("MaximumSpeedTB") StepTimeLB = __UI_GetID("StepTimeLB") StepTimeSecTB = __UI_GetID("StepTimeSecTB") CollisionDistanceLB = __UI_GetID("CollisionDistanceLB") CollisionDistanceTB = __UI_GetID("CollisionDistanceTB") AllowCollisionsCB = __UI_GetID("AllowCollisionsCB") AllowComputertoSetCB = __UI_GetID("AllowComputertoSetCB") toSetValuesLB = __UI_GetID("toSetValuesLB") ProgressBar1 = __UI_GetID("ProgressBar1") ViewingTrackBar = __UI_GetID("ViewingTrackBar") ZeroDegLB = __UI_GetID("ZeroDegLB") Minus180LB = __UI_GetID("Minus180LB") Plus180LB = __UI_GetID("Plus180LB") TimeLimitRB = __UI_GetID("TimeLimitRB") CyclesLimitRB = __UI_GetID("CyclesLimitRB") NumberofMinutesLB = __UI_GetID("NumberofMinutesLB") NumberofMinutesTB = __UI_GetID("NumberofMinutesTB") NumberofHoursLB = __UI_GetID("NumberofHoursLB") NumberofHoursTB = __UI_GetID("NumberofHoursTB") NumberofCyclesTB = __UI_GetID("NumberofCyclesTB") NumberofCyclesLB = __UI_GetID("NumberofCyclesLB") StepTimeMinTB = __UI_GetID("StepTimeMinTB") StepTimeHrTB = __UI_GetID("StepTimeHrTB") StepTimeHrLB = __UI_GetID("StepTimeHrLB") StepTimeMinsLB = __UI_GetID("StepTimeMinsLB") StepTimeSecsLB = __UI_GetID("StepTimeSecsLB") ElapsedTime1TB = __UI_GetID("ElapsedTime1TB") ElapsedTime2TB = __UI_GetID("ElapsedTime2TB") ElapsedTime1LB = __UI_GetID("ElapsedTime1LB") ElapsedTime2LB = __UI_GetID("ElapsedTime2LB") SolarSystemLB = __UI_GetID("SolarSystemLB") ManualInputLB = __UI_GetID("ManualInputLB") GravitationalCollapseLB = __UI_GetID("GravitationalCollapseLB") LoadFromFileLB = __UI_GetID("LoadFromFileLB") ElapsedTimeLB = __UI_GetID("ElapsedTimeLB") DemonstrationLB = __UI_GetID("DemonstrationLB") ResetBT = __UI_GetID("ResetBT") EnergyLB = __UI_GetID("EnergyLB") EnergyTB = __UI_GetID("EnergyTB") DemoLabel1LB = __UI_GetID("DemoLabel1LB") TraceBT = __UI_GetID("TraceBT") ClearBT = __UI_GetID("ClearBT") DemoLabel2LB = __UI_GetID("DemoLabel2LB") ZoomInBT = __UI_GetID("ZoomInBT") ZoomOutBT = __UI_GetID("ZoomOutBT") END SUB