vb6的工程如何利用相对路径调用activexdll文件

Question

请教各位老师，我的环境是vb6+windows2000。
1。我利用vb6,建立activexdll工程，工程名为mystr。工程mystr中自动生成class1这个类。在类中定义如下一个函数
Public Function addstr(str As String) As String
addstr = str + "123"
End Function
vb6的file菜单下，make mystr.dll。生成mystr.dll文件
2。建立standardexe工程，调用mystr.dll。工程名为project4,选中vb6的project菜单->references，添加对mystr.dll的引用，把mystr.dll文件放在project4工程目录下。
3。在project4工程中，有
Private Sub Command1_Click()
Dim a As Object
Set a = New mystr.Class1
Dim str As String
str = a.addstr("456")
MsgBox str
End Sub这样的调用是成功的。我的问题是：调用mystr.dll文件，除了以上的方式，如何能用vb6代码实现,利用相对路径？这样，无论我的软件，安装在哪个电脑路径下，都应用的是相对路径。
谢谢！ 

Answer 1

进行引用以后，实际是个activedll工程，打包以后会自动识别路径。