13518219792
添加引用好像只是把引用的文件目录链接过来，如果你要发到别人那里也能用，就要放在你自己的工程文件包里。
创新互联建站从2013年成立，先为万宁等服务建站，万宁等地企业，进行企业商务咨询服务。为万宁企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
Private Function ReadFile(ByRef a As String) As String
a = "bian"
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As String = "yuanlai"
ReadFile(a)
''想要的结果就是在这里使用a的值是"bian"
MsgBox(a)
End Sub
===================
以上就可以，不知道你“ByRef a As b”的b是什么东西
以class2为例，如果你只需要一个class2实例，那么把它在class1成员中声明为共享成员即可。
Shared c2 As New Class2()
然后调用它的函数，
c2.func()
如果class2的这个函数不依赖于class2实例，那么直接将这个函数用Shared声明，
Public Shared Function func() As xxx
'xxxxx
End Function
然后在class1中引入，
Imports class2
直接调用即可。
func()
我想第二种更符合你的情况。
