Ciao a tutti,
Qualche tempo fa ho postato un messaggio in cui chiedevo aiuto per gestire 
l'assegnazione di bmp ai controlli Immagine delle maschere, tramite function 
pubblica. Il codice risultante è il seguente:
Option Compare Database
Public Function setGrafs(frm As Access.Form)
'**********************************************************
'* skinna tutte le form  e subform del db con bmp collegati
'**********************************************************
    Dim Ctl As Control
    For Each Ctl In frm.Controls
        Select Case Ctl.ControlType
            Case acSubform
                Call setGrafs(Ctl.Form)
            Case Else
                If Ctl.Tag = "barT" Then
                    Ctl.Picture = PathCorrente & "IMGs\barT.bmp"
                ElseIf Ctl.Tag = "barO" Then
                    Ctl.Picture = PathCorrente & "IMGs\barO.bmp"
                ElseIf Ctl.Tag = "barB" Then
                    Ctl.Picture = PathCorrente & "IMGs\barB.bmp"
                Else
                End If
        End Select
    Next
End Function

In ogni form che desidero venga "skinnata", dunque inserisco il codice che 
segue, facente riferimento alla function pubblica setGrafs:
Call setGrafs(Me)

Il tutto funziona ergegiamente in access 2003, ma se eseguo il db con access 
2000 le form contenenti il riferimento alla function setGrafs mi danno il 
seguente errore:
Errore di run-time '13':
Tipo non corrispondente.

Come risolvere questo problema?
Grazie infinite!
em.an.