Pessoal,

Segue a dica para usar o melhor entre as duas tcnicas de "bind" com dll's
1. "Early Bind" usando Referncia    = Positivo: Velocidade    Negativo: Portabilidade (Set obj = New Arquivo.Classe)
2. "Late Bind" usando CreateObject  = Positivo: Portabilidade Negativo: Velocidade   (Set obj = CreateObject("Arquivo.Classe"))

'Dim nc As McNeoCaptionLib.cNeoCaption
Dim nc As Object
'Dim ss As StockSearch.Search
Dim nc As Object

Private Sub Form_Unload(Cancel As Integer)
    Set nc = Nothing
    Set ss = Nothing
End Sub

Private Sub Command1_Click()
    On Error GoTo erro_label
    
    Select Case Me.Combo1.Text
        Case "McNeoCaption"
            'Set nc = New McNeoCaptionLib.cNeoCaption
            Set nc = CreateObject("McNeoCaptionLib.cNeoCaption")
            nc.SetTheme Me, T3_BLUE
        Case "McStockSearch"
            'Set ss = New StockSearch.Search
            Set ss = CreateObject("StockSearch.Search")
            ss.Initialize
    End Select
    
    Exit Sub
erro_label:
    MsgBox "ERRO - " & err.Number & " - " & err.Description
End Sub


Fabiano Louback
Analista de Sistemas