在项目A里添加引用，在“添加引用”对话框里找到项目B就可以了。也可以先把项目B生成dll文件，然后在项目A中添加对这个dll文件的引用。
成都创新互联公司一直秉承“诚信做人，踏实做事”的原则，不欺瞒客户，是我们最起码的底线！ 以服务为基础，以质量求生存，以技术求发展，成交一个客户多一个朋友！为您提供网站设计、做网站、成都网页设计、重庆小程序开发、成都网站开发、成都网站制作、成都软件开发、成都app开发是成都本地专业的网站建设和网站设计公司，等你一起来见证！
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是什么东西
1.对象变量与对象本身是不同的，对象变量代表了对象真实数据在内存中的地址.
打个比方，“对象变量”就象你家的地址，“对象本身”就象你家。
你不能说你家的地址(xx路xx号xx房)就是你家，但是可以通过这个地址而找到你家。
2.传值的参数本身是被复制一份的，但这并不意味着它所代表的对象也被复制一份.
有如下一个函数:
Public
Function
Do_delete(ByVal
ps_usr_id
As
String)
As
Boolean
你在调用时可能这样调用:
dim
strID
as
string
strID
=
"kknd001"
if
Do_delete(strID)
then.....
当程序执行到Do_delete函数体里面时ps_usr_id变量其实是按照StrID的值而复制的一个变量。
以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()
我想第二种更符合你的情况。
