Procedimentos usando Function e GetTime

Public Class MyFirstProcedure

    Private Sub MyFirstProcedure_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        DisplayTime()

    End Sub

    Sub DisplayTime()

        MsgBox(GetTime)

    End Sub

    Function GetTime() As String

        Return CStr(Now)

    End Function

End Class

 **************************************************

1.         Pressione F5 para executar a página.

Até aqui é muito simples e não têm problemas para fazer a execução do projeto na qual esse procedimento chama-se de sub-rotina DisplayTime e executado paro o procedimento Sub DisplayTime. Essa sub-rotina, por sua vez, chama a função GetTime. Logo, a execução do programa vai para a funçãoGetTime.Essa função retorna um String que representa a hora para o procedimento sub DisplayTime que, em seguida, exibe essa sequência de caracteres em uma caixa de mensagem.Após a execução da sub-rotina, o programa continua normalmente e exibe o formulário.