Module Module1

    Sub Main()

        Console.Write("Bok Carlo. Koliko si sati ucio danas? ")
        Carlo.UcenjeC = 5
        Console.WriteLine("Ja sam Carlo.")
        If (Carlo.UcenjeC < 24) Then
            Console.WriteLine("Opet sam jebeno NEPRODUKTIVAN!!!")
        Else
            Console.WriteLine("TO U KURAC PRODUTKIVAN SAM!")
        End If
        Console.WriteLine(Carlo.UcenjeC)

    End Sub

End Module




Public Class Carlo

    Private Shared ucenje As Integer = 0
    Shared Property UcenjeC
        Set(Value)
            ucenje = Value
        End Set
        Get
            Return ucenje
        End Get
    End Property


End Class