VBCode formatting

[Arachnid13]

x = 0 'initial value
 
Do
    x = x + 1
    Select Case x
      Case 2
          'what to do when x is 2
       Case 10
          'what to do when x is 10
       Case 500
          'what to do when x is 500 
     End Select
     DoEvents
Loop