Problema con OCX

Fran_ciss
26 de Marzo del 2006
Soy muy novato en VB, y tengo un problema tonto pero que no sé resolver.

Este es el código:

Public AnimRunning As Boolean
Public Imagen As Integer

Private Sub Animar_Click()
o2c_player.AnimPlaying = AnimRunning
If AnimRunning = False Then AnimRunning = True
End Sub

Private Sub Combo1_Click()
Imagen = Combo1.ListIndex + 1
Imagenes
End Sub

Sub Imagenes()
Select Case Imagen \' Evalúa Número.
Case 1
Ventana = Picture1.Picture
Case 2
Ventana = Picture2.Picture
Case 3
Ventana = Picture3.Picture
Case 4
Ventana = Picture4.Picture
Case 5
Ventana = Picture5.Picture
End Select
End Sub

Cuando ejecuto me da este error:

Error 424... se requiere un objeto.

y se refiere a esta linea:
o2c_player.AnimPlaying = AnimRunning
-----------------------------------------
o2c_player es el control activeX
En el examinador de objetos dice abajo:

Class IO2CPlayer
Miembro de O2CPlayerCtl
Interface to the O2C-Player ActiveX control
-----------------------------------
Y en el miembro de IO2CPlayer dice:

Property AnimPlaying As Boolean
Miembro de O2CPlayerCtl.IO2CPlayer
Returns true, if there is an animation running. Starts the default animation when set to true.
-----------------------------------------
Entonces como se hace para poder utilizar todos los controles de este OCX.

Muchas gracias a quien me conteste