Muchisimas gracias elektro era justo lo que necesitaba , gracias por tomarte el tiempo en ayudarme.
Salu2
Salu2
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
'Caso 1
Private Sub Incrementar(valorA As Integer)
valorA = valorA +1
End Sub
'Caso 2
Private Sub Incrementar(ByRef valorA As Integer)
valorA = valorA +1
End Sub
'Caso 3
Private Sub Incrementar(ByVal valorA As Integer)
valorA = valorA +1
End Sub
Private Function Incrementar(valorA As Integer) as Integer
valorA = valorA +1
Return valorA
End Function
Private Function Incrementar(ByVal valorA As Integer) as Integer
valorA = valorA +1
Return valorA
End Function
Private Function Incrementar(ByRef valorA As Integer) as Integer
valorA = valorA +1
Return valorA
End Function