module1.bas

用vb编写dll动态链接库。教程及一些源代码 很实用

Attribute VB_Name = "Module1"

Public Function ShowMsg()

MsgBox "This is My First Dll ！！"

End Function

Public Function aa(ByVal sHwnd As Long)

SetFlat sHwnd

End Function

Public Function SetLen(ByVal str As String, ByRef kk As Long)

kk = Len(str)

End Function

Public Function t1(ByVal pname As String, ByRef Ret As Integer)
   
   Ret = 2
   
End Function