主程序 Private Sub Form_Load() dll调用声明----- Dim aa As Object Set Me.Icon = myIcon() End Sub*****************dll中的模块Public Function myIcon() As Object Set myIcon = dllform.Icon End Function================================================================ok?
Private Sub Form_Load()
dll调用声明-----
Dim aa As Object
Set Me.Icon = myIcon()
End Sub*****************dll中的模块Public Function myIcon() As Object
Set myIcon = dllform.Icon
End Function================================================================ok?
这样的dll要用regsvr32来注册,在project->reference里可以加载,用object viewer可以查看它所提供的类和方法。