[VB6] Passaggio di oggetto form ad un metodo di controllo activex

[*pao]

anche se non utilizzo gli array mi dà lo stesso errore:
(proprietà o metodo non supportati dall'oggetto)
sempre sul For Each - in pratica è sempre l'errore di prima
cioè non vede vForm come oggetto Form ma come Object...

codice nel controllo activex:

Public Sub Blo_Sblo(vForm As Variant)
Dim co As Control
For Each co In vForm.Controls
  MsgBox co.Name
Next
End Sub

codice nel programma chiamante: (BS è l'oggetto activex)

Private Sub Form_Load()
BS.Blo_Sblo (frmProva)
End Sub