Programación en Visual Basic 2008

Se abre un nuevo proyecto de formularios Windows Forms.
Haga doble clic en el formulario para abrir el Editor de código.
En el Editor de código, busque la línea que contiene End Class. Éste es el fin
de la sección de código que compone el formulario. Inmediatamente antes de
esta línea, agregue el siguiente procedimiento:
Visual Basic Express Copiar código
Function GetTime() As String
Return CStr(Now)
End Function
Esta función utiliza el procedimiento Now integrado para obtener la hora
actual, luego utiliza la función CStr para convertir el valor devuelto por Now en
una String legible. Finalmente, ese valor String se devuelve como el resultado
de la función.
Sobre la función que agregó en el paso anterior, agregue el siguiente Sub.
Visual Basic Express Copiar código
Sub DisplayTime()
MsgBox(GetTime)
End Sub
Esta subrutina llama a la función GetTime y muestra el resultado que
devolvió en un cuadro de mensaje.
Finalmente, agregue una línea al controlador de eventos Form1_Load que
llama a la subrutina DisplayTime, como se muestra en el ejemplo.
Visual Basic Express Copiar código
DisplayTime()
Presione F5 para ejecutar el programa.
Cuando el programa se inicia, se ejecuta el procedimiento de evento
Form1_Load . Este procedimiento llama a la subrutina DisplayTime, de
manera que la ejecución del programa va al procedimiento de subrutina
DisplayTime. Esa subrutina a su vez llama a la función GetTime, por lo que
la ejecución del programa va a la función GetTime. Esta función devuelve una
Everts Garay | Granada, Nicaragua| Paseo por Visual Basic 2008 42