Visual Basic

Imports System<br />
Imports System.Threading<br />
Imports Microsoft.VisualBasic<br />
Imports System.Runtime.InteropServices<br />
<classinterface(classinterfacetype.autodual)> _<br />
Public Class Class1<br />
    Public Shared Function Main(ByVal iBigNum As Integer) As Integer<br />
        Dim iRndNum As Random<br />
<br />
        Main = iRndNum.Next()<br />
<br />
        Return Main<br />
    End Function<br />
End Class</classinterface(classinterfacetype.autodual)>

Module Module1<br />
    Public Declare Unicode Function iRandom Lib "C:\Users\Parth\Documents\Visual Studio 2005\Projects\vbRndDll\vbRndDll\bin\Debug\vbRndDll.dll" Alias "Main" (ByVal iBugNum As Integer) As Integer()<br />
    Sub Main()<br />
        Dim i As Integer<br />
        For i = 0 To 10<br />
            Console.WriteLine(iRandom(3000).ToString)<br />
        Next<br />
    End Sub<br />
<br />
End Module<br />

Unhandled Exception: System.Runtime.InteropServices.MarshalDirectiveException: Cannot marshal 'retur
n value': Invalid managed/unmanaged type combination.
   at Console_db_VB.Module1.iRandom(Int32 iBugNum)
   at Console_db_VB.Module1.Main() in C:\Users\Parth\Documents\Visual Studio 2005\Projects\Console_d
b_VB\Console_db_VB\Module1.vb:line 7
Press any key to continue . . .