Pass values to VB Function and get the return

[Johntosh]

I need to find a random number between two set numbers. I have not found a quick method of acheiving this in VL, however I have found a neat VB Function.

 

Public Function RandomNumber(ByVal MaxValue As Long, Optional _

ByVal MinValue As Long = 0)

On Error Resume Next

Randomize Timer

RandomNumber = Int((MaxValue - MinValue + 1) * Rnd) + MinValue

End Function

 

Is it possible to pass variables from AutoLISP to VB?

 

Also, would I be able to get the return value back into AutoLISP?

[borgunit]

http://www.afralisp.net/vl/vl-vba1.htm

[Johntosh]

~Thanks borgunit

 

I spend some time on that site so I'm ahsamed that I hadn't noticed this page.

 

thanks again.