Dim C As Colors
Select Case My_ColorI
Case 0
C=Colors.Black
Case 1
C=Colors.Blue
Case 2
C=Colors.Cyan
Case 3
C=Colors.DarkGray
Case 4
C=Colors.Gray
Case 5
C=Colors.Green
Case 6
C=Colors.LightGray
Case 7
C=Colors.Magenta
Case 8
C=Colors.Red
Case 9
C=Colors.White
Case 10
C=Colors.Yellow
End Select