Что такое Implements и как его юзать?

      Option Explicit
 
      Public Sub SetXY(ByVal NewX As Long, ByVal NewY As Long)
      End Sub
 
      Public Sub Draw(oDrawSpace As Object)
      End Sub

      Option Explicit
      Implements IShape
 
      Dim X As Long, Y As Long, iRadius As Long
 
      Private Sub IShape_Draw(oDrawSpace As Object)
        oDrawSpace.Circle (X, Y), iRadius
      End Sub
 
      Private Sub IShape_SetXY(ByVal NewX As Long, ByVal NewY As Long)
        X = NewX
        Y = NewY
      End Sub
 
      Public Property Let Radius(ByVal NewVal As Long)
        iRadius = NewVal
      End Property

      Option Explicit
      Implements IShape
 
      Dim X As Long, Y As Long, Side As Long
 
      Private Sub IShape_Draw(oDrawSpace As Object)
        oDrawSpace.Line (X, Y)-(X + Side, Y + Side), , B
      End Sub
 
      Private Sub IShape_SetXY(ByVal NewX As Long, ByVal NewY As Long)
        X = NewX
        Y = NewY
      End Sub
 
      Public Property Let SideLength(ByVal NewVal As Long)
        Side = NewVal
      End Property

      Option Explicit
 
      Private Sub Command1_Click()
 
      Dim C As ICircle, S As ISquare
        Set C = New ICircle
        Set S = New ISquare
      ' Manipulate circle shape (using With)
        C.Radius = 250
        With IShape(C)
          .SetXY 400, 400
          .Draw Me
        End With
      ' Manipulate square shape (without using With)
        IShape(S).SetXY 700, 300
        S.SideLength = 300
        IShape(S).Draw Me
      End Sub
 
      Function IShape(oShape As IShape) As IShape
        Set IShape = oShape
      End Function

Set obj = CreateObject('SomeDLL.SomeClass')
obj.Connect someParam1
...
obj.Disconnect someParam2