EJEMPLO DE CODIGO DE PROGRAMACION
Option Explicit 'Función que devuelve el número aleatorio '''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Function Aleatorio(Minimo As Long , Maximo As Long ) As Long Randomize ' inicializar la semilla Aleatorio = CLng ((Minimo - Maximo) * Rnd + Maximo) End Function