Compile Error: Only User-defined Types Defined In Public Object Module

[vilmarbr]

Compile error: Only user-defined types defined in public object modules can be coerced to or from a variant or passed to a late-bound

functions.

Este erro sempre está ocorrendo quando. tento verificar se o array abaixo está vazio:

Private Type objTypeGridCompra

strNome As String

strNomeExibido As String

blnVisivel As Boolean

intWidth As Integer

intPosicao As Integer

End Type

Private g_arrGridCompra() As objTypeGridCompra

Public Sub x()

If Not IsEmpty(g_arrGridCompra) Then

MsgBox "Está vazio"

Else

MsgBox "NÃO está vazio"

End If

End Sub

Porém eu já tentei declará-lo num módulo publico (.bas) num módulo objeto (.frm) e não deu certo ;(

Como resolvo ?

[Graymalkin]

Troque os "Private"s por "Public"s e veja se dá certo.

Abraços,

Graymalkin

[vilmarbr]

so trocar os "Private"s por "Public"s não deu certo. acabei usando isto:

On Error Resume Next

'Verifica Visibildade e Largura das Colunas

.Columns(intLoop).Hidden = Not g_arrGridInformacoes(intLoop).blnVisivel

'O array ainda não foi redimensionado

If Err.Number = 9 Then Exit For

vlw ;)