Private clLed As Led.clAction
 
Set clLed = New Led.clAction
 
clLed.getPicture pic1

Public Sub getPicture(oPic As Object)
    MsgBox TypeName(oPic )
    If TypeOf oPic Is PictureBox Then
        MsgBox "Bin drin!  " & TypeName(oPic )
        'do something
      End If
End Sub