Vb6免注册调用dm.dll

Private Declare Function SetDllPathA Lib "DmReg.dll" (ByVal path As String, ByVal mode As Long) As Long

Public Sub regDm()
Call SetDllPathA("dm.dll", )
Dim dm As Object
Dim reg
Set dm = CreateObject("dm.dmsoft")
reg = dm.reg("cs840610862d15d7c738767d51b3b23a0917d5fb7f8", "K9HyXeY")
If reg =  Then
MsgBox "注册成功"
Else
MsgBox "注册失败"
End If
End Sub

Private Sub Command1_Click()
Call regDm
End Sub
End Sub