Lutoniall
03-23-2008, 12:28 PM
Is there any way of making this code smaller, thanks in advance
Case 0
line1.Visible = True
line2.Visible = True
line3.Visible = True
line4.Visible = True
line5.Visible = True
line6.Visible = True
line7.Visible = False
Case 1
line1.Visible = False
line2.Visible = False
line3.Visible = False
line4.Visible = True
line5.Visible = True
line6.Visible = False
line7.Visible = False
Case 2
line1.Visible = False
line2.Visible = True
line3.Visible = True
line4.Visible = True
line5.Visible = False
line6.Visible = True
line7.Visible = True
Case 3
line1.Visible = False
line2.Visible = False
line3.Visible = True
line4.Visible = True
line5.Visible = True
line6.Visible = True
line7.Visible = True
Case 4
line1.Visible = True
line2.Visible = False
line3.Visible = False
line4.Visible = True
line5.Visible = True
line6.Visible = False
line7.Visible = True
Case 5
line1.Visible = True
line2.Visible = False
line3.Visible = True
line4.Visible = False
line5.Visible = True
line6.Visible = True
line7.Visible = True
Case 6
line1.Visible = True
line2.Visible = True
line3.Visible = True
line4.Visible = False
line5.Visible = True
line6.Visible = True
line7.Visible = True
Case 7
line1.Visible = False
line2.Visible = False
line3.Visible = True
line4.Visible = True
line5.Visible = True
line6.Visible = False
line7.Visible = False
Case 8
line1.Visible = True
line2.Visible = True
line3.Visible = True
line4.Visible = True
line5.Visible = True
line6.Visible = True
line7.Visible = True
Case 9
line1.Visible = True
line2.Visible = False
line3.Visible = True
line4.Visible = True
line5.Visible = True
line6.Visible = False
line7.Visible = True
End Select
Case 0
line1.Visible = True
line2.Visible = True
line3.Visible = True
line4.Visible = True
line5.Visible = True
line6.Visible = True
line7.Visible = False
Case 1
line1.Visible = False
line2.Visible = False
line3.Visible = False
line4.Visible = True
line5.Visible = True
line6.Visible = False
line7.Visible = False
Case 2
line1.Visible = False
line2.Visible = True
line3.Visible = True
line4.Visible = True
line5.Visible = False
line6.Visible = True
line7.Visible = True
Case 3
line1.Visible = False
line2.Visible = False
line3.Visible = True
line4.Visible = True
line5.Visible = True
line6.Visible = True
line7.Visible = True
Case 4
line1.Visible = True
line2.Visible = False
line3.Visible = False
line4.Visible = True
line5.Visible = True
line6.Visible = False
line7.Visible = True
Case 5
line1.Visible = True
line2.Visible = False
line3.Visible = True
line4.Visible = False
line5.Visible = True
line6.Visible = True
line7.Visible = True
Case 6
line1.Visible = True
line2.Visible = True
line3.Visible = True
line4.Visible = False
line5.Visible = True
line6.Visible = True
line7.Visible = True
Case 7
line1.Visible = False
line2.Visible = False
line3.Visible = True
line4.Visible = True
line5.Visible = True
line6.Visible = False
line7.Visible = False
Case 8
line1.Visible = True
line2.Visible = True
line3.Visible = True
line4.Visible = True
line5.Visible = True
line6.Visible = True
line7.Visible = True
Case 9
line1.Visible = True
line2.Visible = False
line3.Visible = True
line4.Visible = True
line5.Visible = True
line6.Visible = False
line7.Visible = True
End Select