Imports System.Runtime.InteropServices
Public Class Form1
<DllImport("Dlllock.dll",
CallingConvention:=CallingConvention.StdCall)> _
Private Shared Function Dif(<MarshalAs(UnmanagedType.I4)> ByVal b As Integer) As Double
End Function
Dim a As Double
a = Dif(1300)
MsgBox(a)