tengo un gravisimo problemaa y no tengo idea que pasaa!es acerca de pasar los problemas por referencia
el codigo:
Código
Private Sub Form_Load()
Dim AAA As Integer
AAA = 50
BBB (AAA)
Debug.Print AAA
End Sub
Sub BBB(ByRef X As Integer)
X = X + 50
End Sub
al imprimir la variable AAA es valor es 50!!! y no 100!! es como que si me pasara la variable por valor que pasa? que hago mal perdon si es algo tonto
pero estoy impactado 
lo e seguido con el depurador y en el procedimiento BBB el valor de X cambia normal a 100 pero cuando retorna al form el valor cambia a 50! x3
gracias










Autor



En línea




