声明:
Declare Sub Get Lib "send.dll" (ByVal name As String,byval num As Integer)
Declare Sub Send Lib "send.dll" (ByVal buffer As String,ByVal maxbuf as Integer)
Declare Sub Print_ Lib "send.dll" Alias "Print" (ByVal num As Integer,ByVal printname As String, ByVal name As String)'由于 Print 是 VB 关键字,不能用,就用了 Print_ 来代替
引用后按照api函数的声明方法声明就行了