module1.bas

来自「使用VB作为开发工具的朋友,应该都知道VB的IDE不支持对AciveDLL添加 」· BAS 代码 · 共 26 行

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