Public Sub DoSomething()
  End Sub

  Implements iAction
 
  Private Sub iAction_DoSomething()
    '... do something normal
  End Sub

  Implements iAction
 
  Private Sub iAction_DoSomething()
    '... do something strange
  End Sub

Private Sub cmdActionNormal_Click()
  Dim Action as cActionNormal     '!!!
  Set Action = New cActionNormal
  DoAction Action                               'Gleicher Aufruf wie unten
  Set Action = Nothing
End Sub
 
Private Sub cmdActionStrange_Click()
  Dim Action as cActionStrange     '!!!
  Set Action = New cActionStrange
  DoAction Action                               'Gleicher Aufruf wie oben
  Set Action = Nothing
End Sub
 
Private Sub DoAction(ByRef rAction As iAction) '!!! hier ist es iAction
  rAction.DoSomething                    '!!! Nur ein Aufruf
End Sub

    Dim objGrafik As iMalen
 
    For Each objGrafik In colGrafikObjekte
      objGrafik.Malen
    Next

Gruß
Dirk

--
?Get it right the first time