Example:

  1. Sub Main

    1. Dim I as integer

      For I = 1 to 10

      1. Print GetColor2(I)

      Next I

    End Sub

 

  1. Function GetColor2( c% ) As Long

    1. GetColor2 = c% * 25

      If c% > 2 Then

      1. GetColor2 = 255' 0x0000FF - Red

      End If

      If c% > 5 Then

      1. GetColor2 = 65280' 0x00FF00 - Green

      End If

      If c% > 8 Then

      1. GetColor2 = 16711680' 0xFF0000 - Blue

      End If

    End Function