'1 15 10 5 0 2 15 10 5 0 3
 
        Dim Zero As Byte = 0
        Dim _Return As String = ""
        Dim _Mod As Byte = 0
 
        For x As Byte = 0 To 15
 
            _Mod = x Mod 5
 
            If _Mod = 0 Then
                If Zero > 0 Then
                    _Return += Zero.ToString & " "
                End If
                Zero += 1
            Else
                If Zero > 1 Then
                    _Return += (20 - (_Mod * 5)) & " "
                End If
            End If
 
        Next
 
        Console.WriteLine(_Return)
        Console.ReadKey()