int plus_dva(int value){ return value+2}
Declare Function plus_dva lib "dll_name" (val as Integer) as IntegerSub main dim i as Integer i=plus_dva(4)End Sub
rundll32 plus_dva, 2