Programming Tool Box/SIMS_2.iso/tool/design/mbarvb/form1.txt

Text File | 1995-02-26 | 522b | 9 lines

Sub Timer1_Timer ()
    If MeterBar1.Position < MeterBar1.Range Then MeterBar1.Position = MeterBar1.Position + 1 Else MeterBar1.Position = 0
    If MeterBar2.Position < MeterBar2.Range Then MeterBar2.Position = MeterBar2.Position + 1 Else MeterBar2.Position = 0
    If MeterBar3.Position < MeterBar3.Range Then MeterBar3.Position = MeterBar3.Position + 1 Else MeterBar3.Position = 0
    If MeterBar4.Position < MeterBar4.Range Then MeterBar4.Position = MeterBar4.Position + 1 Else MeterBar4.Position = 0
End Sub