With the below code I get Type do not match (Warning #22). What am I not understanding? this code however work. Thanks
B4X:
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