| 
                         Dobrý den, 1. Vytvořte si interface IZarovka se dvěma procedurami pro žárovku:  
    Public Interface IZarovka
        Sub Zapnout()
        Sub Vypnout()
    End Interface
2. Vytvořte třídu Zarovka, která bude tento interface implementovat. 
    Public Class Zarovka
        Implements IZarovka
        Public Sub Zapnout() Implements IZarovka.Zapnout
            msgbox("Žárovka svítí.")
        End Sub
        Public Sub Vypnout() Implements IZarovka.Vypnout
            msgbox("Žárovka nesvítí.")
        End Sub
    End Class3. Vytvořte třídu Spinac, která bude ovládat žárovku. 
    Public Class Spinac
        Private _zarovka As IZarovka
        Public Property Zarovka() As IZarovka
            Get
                Return _zarovka
            End Get
            Set(ByVal value As IZarovka)
                _zarovka = value
            End Set
        End Property
        Public Sub ZapnoutZarovku()
            _zarovka.Zapnout()
        End Sub
        Public Sub VypnoutZarovku()
            _zarovka.Vypnout()
        End Sub
    End Class
4. V kódu pak vše volejte následovně: 
    Dim mujSpinac = New Spinac
    mujSpinac.Zarovka = New Zarovka()
    mujSpinac.ZapnoutZarovku()
    mujSpinac.VypnoutZarovku()
   
                        
                     |