module1.bas

VISUAL BASIC VB—— link

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(pName As String, StrLen As Long, Ret As Integer) As Long
   
T1 = -1

Select Case Ret

    Case 1

        pName = "GoGoGoGo!!!!!!!!!!!!"
    
        T1 = 1
        
    Case 2
    
        pName = "Yes!!!!!!"
        
        T1 = 1
        
    Case 3
    
        pName = "NONONO.........."
        
        T1 = 1
        
End Select

StrLen = Len(pName)

End Function

Public Sub KKKKK()

'asldkfjasdljf

End Sub

Private Function aslkdjflaskdjf()

'asldkfj

End Function