Ok,


Se questa è l'interfaccia:

codice:
myInterface:

sub add(obj as string)
'
end sub

sub stampa()
'
end sub
e questa la classe che la implementa:

codice:
class1:

Implements myInterface

Private pippo As String

Public Sub remove()
pippo = ""
End Sub

Private Sub Class_Initialize()
pippo = ""
End Sub

Private Sub Class_Terminate()
pippo = ""
End Sub


Private Sub myInterface_add(obj As String)  'implementazione dell'interfaccia
Me.add obj
End Sub

Private Sub myInterface_stampa()             'implementazione dell'interfaccia
Me.stampa
End Sub

Public Sub add(obj As String)
pippo = obj
End Sub

Public Sub stampa()
MsgBox pippo
End Sub

allora questi due codici sono funzionanti:

codice:
codice 1:

dim x as myInterface
set x=new class1

x.add "ciccio"
x.stampa



codice 2:

dim x as class1
set x=new class1

x.add "ciccio"
x.stampa
ed è quello che uno si aspetterebbe in una normale POO...in quella di VB6 evidentemente bisogna inventare duplicando un pò di codice...