Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Cada vez que le des clic al boton te va generar un numero aleaorio del 1 al 6 Private Sub cmdGenerar_Click() Dim MyValue MyValue = Int((6 * Rnd) + 1) Text1 = MyValue End Sub