Byref

Este ejemplo es igual que el anterior, pero en la Sub sumar , la variable Valor se declara con ByRef ( por Referencia )
Código
-------------------------------------------------

-------------------------------------------------
Ejemplo:
-------------------------------------------------
Private Sub Command1_Click()-------------------------------------------------

-------------------------------------------------
Dim Un_Valor As Long
-------------------------------------------------

-------------------------------------------------
Un_Valor = 100
--------------------------------------------------------------------------------------------------

-------------------------------------------------
'Se envía la variable por Referencia ( ByRef ) con el valor 100
-------------------------------------------------

-------------------------------------------------
Call Sumar(Un_Valor)
--------------------------------------------------------------------------------------------------
'Muestra el valor que ahora es 200, ( ya que se modificó en la Sub Sumar)
-------------------------------------------------
MsgBox Un_Valor
-------------------------------------------------

-------------------------------------------------

-------------------------------------------------End Sub
-------------------------------------------------

-------------------------------------------------
Sub Sumar(ByRef Valor As Long)
-------------------------------------------------
'Modifica la variable
-------------------------------------------------
Valor = Valor + 100-------------------------------------------------

End Sub
Código de ejemplo ByVal

Private Sub Command1_Click()
Dim Un_Valor As Long
Un_Valor = 100
'Se envía la variable por Valor ( ByVal )
Call Sumar(Un_Valor)
'Muestra el valor que es 100, ( no se modificó en la función Sumar )
MsgBox Un_Valor
End Sub

Sub Sumar(ByVal Valor As Long)
'Modifica la variable
Valor = Valor + 100

End Sub

CódigoByRef

Private Sub Command1_Click()
Dim Un_Valor As Long
Un_Valor = 100
'Se envía la variable por Referencia ( ByRef ) con el valor 100
Call Sumar(Un_Valor)
'Muestra el valor que ahora es 200, ( ya que se modificó en la Sub Sumar)
MsgBox Un_Valor
End Sub

Sub Sumar(ByRef Valor As Long)
'Modifica la variable
Valor = Valor + 100
End Sub

p.d. como bien dijo MaxExtreme FunctionMiFuncion(Parametro As String) es igual a
Function MiFuncion(ByRef Parametro As String)
ByVal, ByRef y Punteros- Como manejar argumentos correctamente en Visual Basic 6
* Introducción
* Empezando
* ¿Qué es ByVal y ByRef?
* Conclusión
* Bibliografía
Introducción:
En lenguaje C, hay situaciones en las que tenemos que tomar valores muy rápidamente, o también organizar los datos deformas contiguas para facilitar la programación cuando intentamos acceder a ellos. Los punteros nos permiten manejar estos casos de una forma cómoda. Aprender punteros siempre será difícil, porque conlleva aprender un nuevo concepto en la forma en la que se almacenan los datos, pero una vez comprendido los conceptos básicos, usted notará que le será de utilidad en ciertos secciones de programas de unFirmware para el microcontrolador (uC) PIC.
volver arriba
Empezando
Cuando se comienza a escribir un código en Visual Basic 6 (vb6), siempre caeremos dentro de un procedimiento o función y como tal, conlleva sus argumentos o parámetros (ya sean por defecto o asignados por nosotros)
un ejemplo de ello es:
1 2 3 4 5...