Como definir um parâmetro opcinal no VB6

Sub notifica(ByVal company As String, Optional ByVal office As String = "QJZ")
    If office = "QJZ" Then
        Debug.WriteLine("office not supplied -- using Headquarters")
        office = "Headquarters"
    End If
    ' Insert code to notify headquarters or specified office.
End Sub

Sub notifica(ByVal company As String, Optional ByVal office As String = "QJZ")

If office = "QJZ" Then

Debug.WriteLine("office not supplied -- using Headquarters")

office = "Headquarters"

End If

' Insert code to notify headquarters or specified office.

End Sub

Adão Gonçalves

DBA SQL Server

Como definir um parâmetro opcinal no VB6

Deixe um comentário Cancelar resposta