Naprogramování virtuálního MP3 Přehrávače LENOVO mně trvalo cca 20 minut.

  
Module Module2
    Public Class MP3Prehravac
        Private m_model As String
        Private m_pocetPisni As Integer
        Private m_pametvGB As Integer
    Public Sub New()
        m_model = "Creative LENOVO"
        m_pocetPisni = 2000
        m_pametvGB = 4
    End Sub
    Public Sub New(ByVal model As String, ByVal pocetPisni As Integer, _
    ByVal pametVGB As Integer)
        m_model = model
        m_pocetPisni = pocetPisni
        m_pametvGB = pametVGB
    End Sub
    Public Property Model As String
        Get
            Return m_model
        End Get
        Set(ByVal value As String)
            m_model = value

        End Set
    End Property
    Public Property PocetPisni As Integer
        Get
            Return m_pocetPisni
        End Get
        Set(ByVal value As Integer)
            m_pocetPisni = value
        End Set
    End Property
    Public Property PametVGB As Integer
        Get
            Return m_pametvGB
        End Get
        Set(ByVal value As Integer)
            m_pametvGB = value
        End Set
    End Property
    End Class
    Sub Main()
        Dim prehravac As New MP3Prehravac()
        Console.WriteLine("Máme nasledující MP3 přehrávač:" & vbCrLf & _
                          "Model: " & prehravac.Model & vbCrLf & _
                          "Počet písní: " & prehravac.PocetPisni & vbCrLf & _
                          "Paměť (v GB): " & prehravac.PametVGB)
    End Sub
End Module