Module Module1
Function Recursive(ByRef count As Integer) As Integer
Console.WriteLine("Recursive({0})", count)
If count = 0 Then
Return 0
End If
Return Recursive(count - 1)
End Function
Sub Main()
Dim total As Integer = Recursive(4)
End Sub
End Module
' run:
'
' Recursive(4)
' Recursive(3)
' Recursive(2)
' Recursive(1)
' Recursive(0)