Mi rispondo da solo.....

codice:
#If 1 = 1 Then
    Private Sub Popola_Campi(ByVal idbp As Integer, ByVal codautore As Integer, ByVal statobp As Integer)
    'Codice che troveremo nella dll
    End Sub
#Else
    Private Sub Popola_Campi1(ByVal idbp As Integer, ByVal codautore As Integer, ByVal statobp As Integer)
    'Codice che non troveremo nella dll
    End Sub

#End If
Ho disassemblato la dll creata dopo la compilazione e non c'è traccia della routine popola_campi1...
Ciao a tutti.

Legnetto