Interfacce in VBA

La cosa più logica che posso fare è adesso occuparmi delle interfacce in VBA (VB6 dovrebbe essere simile).

Ho creato un modulo di classe e l'ho chiamato semplicemente "Interfaccia".

Partiamo dalle cose più semplici (mi è uscita a parolacce e la riporto così)...

INTERFACCIA:

Sub fanculo()

End Sub

CLASSE (Classe1) CHE IMPLEMENTA L'INTERFACCIA:

Implements Interfaccia

Private Sub Interfaccia_fanculo()
MsgBox "vaffanqulo"
End Sub

UN'ALTRA CLASSE (Classe2) CHE IMPLEMENTA L'INTERFACCIA:

Implements Interfaccia

Private Sub Interfaccia_fanculo()
MsgBox "Ngulammammete"
End Sub

E nel modulo principale:

Public cl As Interfaccia
Sub main()
    Set cl = New Classe1
    cl.fanculo
    Set cl = New Classe2
    cl.fanculo
End Sub

E ottengo due MessageBoxes nella prima della quale c'è scritto "vaffanqulo" e nella seconda "Ngulammammete": ogni classe che implementa l'interfaccia ne implementa il metodo in modo personale.

La variabile pubblica del modulo principale è di tipo interfaccia, e può essere eguagliata a qualsiasi classe che implementi l'interfaccia stessa. Ecco: primo punto di partenza...