Imports System
Public Class SetDefaultValueToFunctionParameters
Public Shared Sub Main()
PrintMessage()
PrintMessage("VB.NET")
PrintMessage("abc", 3)
End Sub
Private Shared Sub PrintMessage(ByVal Optional message As String = "Default message", ByVal Optional count As Integer = 1)
For i As Integer = 0 To count - 1
Console.WriteLine(message)
Next
End Sub
End Class
' run:
'
' Default message
' VB.NET
' abc
' abc
' abc
'