Ocultar DTPicker al cambiarle la propiedad CustomFormat

[RsOfT]

Tengo una función que se encuentra en cada Load de cada formulario que tengo en mi proyecto. Esto es con el fin de que, sin importar la configuración regional siempre utilize el CustomFormat = "dd-MM-yyyy".

Ahora bien, hay algunos DTPicker que están ocultos en el formulario pero al ejecutar la función se ponen “Visible = true” y no he logrado volverlos a poner "Visible = False".

La función es:
Public Sub sb_FormatearCamposFecha(frm As Form)
For Each Obj In frm
If TypeOf Obj Is DTPicker Then
Obj.Format = dtpCustom
Obj.CustomFormat = "dd-MM-yyyy"
End If
Next
End Sub

Llamo esta función asi: Call sb_FormatearCamposFecha(Me)

¿Qué está ocurriendo?



Probé haciendo lo siguiente y tampoco funcionó:

Public Sub sb_FormatearCamposFecha(frm As Form)
Dim bolVisible as boolean
For Each Obj In frm
If TypeOf Obj Is DTPicker Then
bolVisible = Obj.Visible
Obj.Format = dtpCustom
Obj.CustomFormat = "dd-MM-yyyy"
Obj.Visible = bolVisible
End If
Next
End Sub