Private Declare Function originalPress Lib "design_dll.dll" (ByVal pt1 As Double, ByVal pc1 As Double) As Long
Private Sub Command5_Click()
Dim a As Double
a = originalPress(1, 2)
MsgBox a
MsgBox b
End Sub
谢谢各位的回答
3#你的我试过,但是提示找不到Dll入口点originalPress in design_dll.dll