vb.net function Use

Public Function Colour (ByVal Code as Int16) as color ' color
Select Case Code
Case 1
Colour = Color.White ' White
Case 2
Colour = Color.yellow ' yellow color
Case 3
Colour = Color.Red ' Red
Case 4
Colour = Color.silver ' Grey
End Select
End Function

Private Sub A1 ()

Textbox1.backcolor = Colour (1) ' L Background color white

Textbox1.backcolor = Colour (2) ' L Background color yellow

Textbox1.backcolor = Colour (3) ' L background red

Textbox1.backcolor = Colour (4) ' L Background color gray

End Sub

vb.net function Use