>>458
すみません。以下のような感じでやってみたのですが、ダメでした。
というか、説明いただいた事と合ってるのか自身ないのですが・・・。

Public Class Form1
Public Delegate Sub CallBack(ByVal Param As Integer)
Declare Sub SetCallBack Lib "vc.dll" (ByRef fucn As CallBack)
Dim func As CallBack = AddressOf Module1.CallBackFunction
........
Public Sub Button1_ClickXXXX
SetCallBack(func)
End Sub
End Class

Public Module Module1
Public Sub CallbackFunction(ByVal lParam As Integer)
/*なんかしょり*/
End Sub
End Module