Public Class Form1
Public Declare Function SetDllPathA Lib "Dmreg.dll" Alias "SetDllPathA" (ByVal path As String, ByVal mode As Long) As Long
Public aa As Object
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
SetDllPathA("dm.dll", 0)
Dim aa As Object
aa = CreateObject("dm.dmsoft")
MsgBox(aa.ver())
End Sub
End Class
//几点注意的地方:平台选择X86,大漠的dm.dll和免注册使用的SetDLLPathA函数(不要使用SetDLLPathW,被坑了好久)的文件Dmreg.Dll要放在X86/Debug/文件夹下
1