dll call problem

[bengalliboy]

Please some one help me: I made a fortran dll and am trying to call it from a VB (6) program and am getting the following Runtime error (455): Can't Find DLL entry point DLL_OUT in C;\test\file.dll

What am I missing>?
Here is the code:
Private Sub Command1_Click()

num1 = InputBox("Please enter number 1:")
num2 = InputBox("Please enter number 2:")

'Static STR_IN As String * 10, STR_OUT As String * 20

'Rem Pass lengths of string arguments

Call total1(num1, num2, total)

TextBox1.Text = total

End Sub
Declare Sub total1 Lib "C:\TryVB\myDLL\Debug\myDLL.dll" (ByRef num1 As Integer, ByRef num2 As Integer, ByRef total As Integer)
fortran:
subroutine total1(num1,num2,total)
integer num1,num2,total
total = num1 + num2
write(*,*)total
end

 

[psemianonymous]

You'll get a better response from either of the two following forums. We ... really don't deal with those sort of issues in MS-Access ... often. So try:


Visual Basic(Microsoft) ActiveX Controls and DLLs Forum
forum708

Visual Basic(Microsoft): Version 5 & 6 Forum
forum222