<font color=green>' Im Modul Class1</green>
Public Sub ChangeBackColor(o As Object, ByVal lColor As OLE_COLOR)
  o.BackColor = lColor
End Sub

Dim myDLL As New Class1

Private Sub Command1_Click()
  myClass.ChangeBackColor Me, vbWhite
End Sub